var/external/bufr/ccbfl.c

   1 /*$$$  SUBPROGRAM DOCUMENTATION BLOCK
   2 C
   3 C SUBPROGRAM:    CCBFL
   4 C   PRGMMR: ATOR             ORG: NP12       DATE: 2005-11-29
   5 C
   6 C ABSTRACT:  THIS ROUTINE CLOSES (AND FLUSHES ANY REMAINING OUTPUT TO!)
   7 C   ANY SYSTEM FILES THAT ARE STILL OPEN FROM ANY PREVIOUS CALLS TO BUFR
   8 C   ARCHIVE LIBRARY SUBROUTINE COBFL.
   9 C
  10 C PROGRAM HISTORY LOG:
  11 C 2005-11-29  J. ATOR    -- ORIGINAL AUTHOR
  12 C
  13 C USAGE:    CALL CCBFL
  14 C
  15 C REMARKS:
  16 C    THIS ROUTINE CALLS:        None
  17 C    THIS ROUTINE IS CALLED BY: None
  18 C                               Normally called only by application
  19 C                               programs.
  20 C
  21 C ATTRIBUTES:
  22 C   LANGUAGE: C
  23 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  24 C
  25 C$$$*/
  26
  27 #include "bufrlib.h"
  28
  29 void ccbfl( void )
  30 {
  31     unsigned short i;
  32
  33     for ( i = 0; i < 2; i++ ) {
  34         if ( pbf[i] != NULL ) fclose( pbf[i] );
  35     }
  36 }