133dc97f67
Former-commit-id:06a8b51d6d[formerly9f19e3f712[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]] Former-commit-id:9f19e3f712Former-commit-id:a02aeb236c
59 lines
1.6 KiB
C
59 lines
1.6 KiB
C
#include <stdio.h>
|
|
#include "create_fortran_link.h"
|
|
|
|
/*
|
|
#include "geminc.h"
|
|
#include "gemprm.h"
|
|
*/
|
|
#ifdef UNDERSCORE
|
|
#define gbf_wopn gbf_wopn_
|
|
#endif
|
|
|
|
FILE *fptr;
|
|
|
|
create_fortran_link( void,gbf_wopn,(char* filnam,int* lfilnam, int* iret),( filnam, lfilnam, iret ))
|
|
|
|
/************************************************************************
|
|
* gbf_wopn *
|
|
* *
|
|
* This function opens a GRIB file for writing. If the file does not *
|
|
* exist, it is created. All writes are forced to the end of the file. *
|
|
* *
|
|
* This function is intended to be called from FORTRAN to open a single *
|
|
* output GRIB file for write access using gbf_writ. When the writing *
|
|
* is done, call gbf_clos to close the file. Only one file can be open *
|
|
* at a time. *
|
|
* *
|
|
* gbf_aopn ( filnam, lfilnam, iret ) *
|
|
* *
|
|
* Input parameters: *
|
|
* *filnam char File name *
|
|
* *lfilnam int Length of file name *
|
|
* *
|
|
* Output parameters: *
|
|
* *iret int Return code *
|
|
** *
|
|
* G. Krueger/EAI 3/96 *
|
|
* G. Krueger/EAI 8/96 Match with FL library *
|
|
* K. Brill/HPC 8/99 Adapted from cfl_aopn; Move *fptr from *
|
|
* call to external *
|
|
***********************************************************************/
|
|
{
|
|
int ier;
|
|
/* char newname[LLPATH]; */
|
|
/*---------------------------------------------------------------------*/
|
|
*iret = 0;
|
|
|
|
/* css_envr ( filnam, newname, &ier );
|
|
fptr = fopen ( newname, "a+" );
|
|
*/
|
|
filnam[*lfilnam] = '\0';
|
|
fptr = fopen ( filnam, "w" );
|
|
if ( fptr == NULL ) {
|
|
printf ( "GRIB file could not be opened.\n" );
|
|
}
|
|
|
|
return;
|
|
|
|
|
|
}
|