icopysb.f

Go to the documentation of this file.

C> @file
C> @brief Copy a BUFR data subset.
C>
C> @author J. Woollen @date 1994-01-06
 
C> This function calls BUFRLIB subroutine copysb() and passes
C> back its return code as the function value.
C>
C> @param[in] LUNIN   -- integer: Fortran logical unit number for
C>                       source BUFR file
C> @param[in] LUNOT   -- integer: Fortran logical unit number for
C>                       target BUFR file
C> @returns icopysb   -- integer: return code
C>                       - 0 = normal return
C>                       - -1 = a BUFR data subset could not be
C>                              read from the BUFR message in
C>                              internal arrays for LUNIN
C>
C> @remarks
C> - The use of this function allows the return code from copysb() to be
C> used as the target variable within an iterative program loop.
C>
C> @author J. Woollen @date 1994-01-06
      RECURSIVE FUNCTION icopysb(LUNIN,LUNOT) RESULT(IRET)
 
      USE modv_im8b
 
      IF(im8b) THEN
        im8b=.false.
 
        CALL x84(lunin,my_lunin,1)
        CALL x84(lunot,my_lunot,1)
        iret=icopysb(my_lunin,my_lunot)
 
        im8b=.true.
        RETURN
      ENDIF
 
      CALL copysb(lunin,lunot,iret)
 
      RETURN
      END