wrfv2_fire/var/external/bufr/icopysb.inc

   1       FUNCTION ICOPYSB (LUNIN, LUNOT)
   2
   3 !$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 !
   5 ! SUBPROGRAM:    ICOPYSB
   6 !   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1994-01-06
   7 !
   8 ! ABSTRACT: THIS FUNCTION CALLS BUFR ARCHIVE LIBRARY SUBROUTINE COPYSB
   9 !   AND PASSES BACK ITS RETURN CODE.  SEE COPYSB FOR MORE DETAILS.
  10 !
  11 ! PROGRAM HISTORY LOG:
  12 ! 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR (ENTRY POINT IN IREADMG)
  13 ! 2002-05-14  J. WOOLLEN -- CHANGED FROM AN ENTRY POINT TO INCREASE
  14 !                           PORTABILITY TO OTHER PLATFORMS
  15 ! 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
  16 !                           INTERDEPENDENCIES
  17 ! 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
  18 !                           DOCUMENTATION (INCLUDING HISTORY)
  19 !
  20 ! USAGE:    ICOPYSB (LUNIN, LUNOT)
  21 !   INPUT ARGUMENT LIST:
  22 !     LUNIT    - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR INPUT BUFR
  23 !                FILE
  24 !     LUNOT    - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR OUTPUT BUFR
  25 !                FILE
  26 !
  27 !   OUTPUT ARGUMENT LIST:
  28 !     ICOPYSB  - INTEGER: RETURN CODE:
  29 !                       0 = normal return
  30 !                      -1 = there are no more subsets in the input
  31 !                           BUFR message
  32 !
  33 ! REMARKS:
  34 !    THIS ROUTINE CALLS:        COPYSB
  35 !    THIS ROUTINE IS CALLED BY: None
  36 !                               Normally called only by application
  37 !                               programs.
  38 !
  39 ! ATTRIBUTES:
  40 !   LANGUAGE: FORTRAN 77
  41 !   MACHINE:  PORTABLE TO ALL PLATFORMS
  42 !
  43 !$$$
  44
  45       CALL COPYSB (LUNIN, LUNOT, IRET)
  46       ICOPYSB = IRET
  47       RETURN
  48       END FUNCTION ICOPYSB