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