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