NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
icopysb.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Copy a BUFR data subset.
3 
4 C> This function calls BUFRLIB subroutine copysb() and passes
5 C> back its return code as the function value.
6 C>
7 C> @author J. Woollen
8 C> @date 1994-01-06
9 C>
10 C> @param[in] LUNIN -- integer: Fortran logical unit number for
11 C> source BUFR file
12 C> @param[in] LUNOT -- integer: Fortran logical unit number for
13 C> target BUFR file
14 C> @returns icopysb -- integer: return code
15 C> - 0 = normal return
16 C> - -1 = a BUFR data subset could not be
17 C> read from the BUFR message in
18 C> internal arrays for LUNIN
19 C>
20 C> @remarks
21 C> - The use of this function allows the return code from copysb() to be
22 C> used as the target variable within an iterative program loop.
23 C>
24 C> <b>Program history log:</b>
25 C> | Date | Programmer | Comments |
26 C> | -----|------------|----------|
27 C> | 1994-01-06 | J. Woollen | Original author |
28 C> | 2002-05-14 | J. Woollen | Changed from an entry point to increase portability to other platforms |
29 C>
30  FUNCTION icopysb(LUNIN,LUNOT)
31 
32  CALL copysb(lunin,lunot,iret)
33  icopysb = iret
34  RETURN
35  END
subroutine copysb(LUNIN, LUNOT, IRET)
This subroutine copies a BUFR data subset from one Fortran logical unit to another.
Definition: copysb.f:57
function icopysb(LUNIN, LUNOT)
This function calls BUFRLIB subroutine copysb() and passes back its return code as the function value...
Definition: icopysb.f:30