da_read_ssmi_real_array.inc

1 subroutine da_read_ssmi_real_array(aa,nn,i0,i_step)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    integer,                 intent(in) :: nn, i0, i_step
10    real   ,  dimension(:), intent(out) :: aa
11 
12    integer     :: i, ii
13 
14    do i = 1, nn
15       ii = i_step*(i-1) + i0
16       read (unit=char_ned (ii:ii+8),fmt='((f7.2,2X))') aa(i)
17    end do
18 
19 end subroutine da_read_ssmi_real_array
20 
21