var/external/bufr/cwbmg.c

   1 /*$$$  SUBPROGRAM DOCUMENTATION BLOCK
   2 C
   3 C SUBPROGRAM:    CWBMG
   4 C   PRGMMR: ATOR             ORG: NP12       DATE: 2005-11-29
   5 C
   6 C ABSTRACT:  THIS ROUTINE WRITES A SPECIFIED NUMBER OF BYTES TO THE
   7 C   SYSTEM FILE MOST RECENTLY OPENED FOR WRITING/OUTPUT VIA BUFR
   8 C   ARCHIVE LIBRARY ROUTINE COBFL.
   9 C
  10 C PROGRAM HISTORY LOG:
  11 C 2005-11-29  J. ATOR    -- ORIGINAL AUTHOR
  12 C
  13 C USAGE:    CALL CWBMG( BMG, NMB, IRET )
  14 C   INPUT ARGUMENT LIST:
  15 C     BMG      - CHARACTER*1: ARRAY CONTAINING BYTES TO BE WRITTEN
  16 C     NMB      - INTEGER: NUMBER OF BYTES WITHIN BMG TO BE WRITTEN
  17 C
  18 C   OUTPUT ARGUMENT LIST:
  19 C     IRET     - INTEGER: RETURN CODE:
  20 C                  0 = normal return
  21 C                 -1 = I/O error occurred while writing
  22 C
  23 C REMARKS:
  24 C    THIS ROUTINE CALLS:        BORT
  25 C    THIS ROUTINE IS CALLED BY: None
  26 C                               Normally called only by application
  27 C                               programs.
  28 C
  29 C ATTRIBUTES:
  30 C   LANGUAGE: C
  31 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  32 C
  33 C$$$*/
  34
  35 #include "bufrlib.h"
  36
  37 void cwbmg( char *bmg, f77int *nmb, f77int *iret )
  38 {
  39     char errstr[129];
  40
  41 /*
  42 **  Make sure that a file is open for writing.
  43 */
  44     if ( pbf[1] == NULL ) {
  45         sprintf( errstr, "BUFRLIB: CWBMG - NO FILE IS OPEN FOR WRITING" );
  46         bort( errstr, ( f77int ) strlen( errstr ) );
  47     }
  48 /*
  49 **  Write the BUFR message to the file.
  50 */
  51     *iret = ( ( fwrite( bmg, 1, *nmb, pbf[1] ) == *nmb ) ? 0 : -1 );
  52
  53     return;
  54 }