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