var/da/da_par_util/da_pack_count_obs.inc

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