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    value(offset)   = num_obs % num_used
15    value(offset+1) = num_obs % num_outside_iyjx
16    value(offset+2) = num_obs % num_max_err_chk
17    value(offset+3) = num_obs % num_missing
18    offset = offset + 4
19 
20 end subroutine da_pack_count_obs
21 
22