var/da/da_par_util/da_unpack_count_obs.inc

   1 subroutine da_unpack_count_obs (num_obs, offset, value)
   2
   3    !---------------------------------------------------------------------------
   4    ! Purpose: Unpack the 4 integer values starting at value(offset) into the
   5    !          num_obs structure.
   6    !---------------------------------------------------------------------------
   7
   8    implicit none
   9
  10    type (count_obs_number_type), intent(out)    :: num_obs
  11    integer                     , intent(inout)  :: offset
  12    integer                     , intent(in)     :: value(*)
  13
  14    if (trace_use) call da_trace_entry("da_unpack_count_obs")
  15
  16    num_obs % num_used         = value(offset)
  17    num_obs % num_outside_iyjx = value(offset+1)
  18    num_obs % num_max_err_chk  = value(offset+2)
  19    num_obs % num_missing      = value(offset+3)
  20    offset = offset + 4
  21
  22    if (trace_use) call da_trace_exit("da_unpack_count_obs")
  23
  24 end subroutine da_unpack_count_obs
  25
  26