get_l1a_close.f

Go to the documentation of this file.

      subroutine get_l1a_close( prod_ID, iret )
 
      integer*4 prod_ID
      integer sfend
 
      iret = sfend(prod_id)
 
      return
      end