7f90924706
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]]] Former-commit-id:8485b90ff8Former-commit-id:40aa780b3d[formerly33a67cdd82] [formerly 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5]] Former-commit-id: a16a1b4dd44fc344ee709abbe262aeed58a8339b [formerlye5543a0e86] Former-commit-id:0c25458510
37 lines
1.8 KiB
C
37 lines
1.8 KiB
C
#include "geminc.h"
|
|
#include "gemprm.h"
|
|
|
|
void gdc_open ( char *gdfile, int *wrtflg, int *mxanl, int *mxnav,
|
|
int *iacss, float *anl, float *rnav,
|
|
int *msxgrd, int *iret )
|
|
/************************************************************************
|
|
C* Input parameters: *
|
|
C* GDFILE CHAR* Grid file name *
|
|
C* WRTFLG LOGICAL Write access flag *
|
|
C* MXANL INTEGER Number of analysis block return *
|
|
C* MXNAV INTEGER NUmber of nav block return *
|
|
C* *
|
|
C* Output parameters: *
|
|
C* IACSS INTEGER Access number to do I/O on file *
|
|
C* BKANL (MXANL) REAL Analysis block data array *
|
|
C* BKNAV (MXNAV) REAL Navigation block data array *
|
|
C* MXGRD INTEGER Maximum number of grids *
|
|
C* IRET INTEGER Return code *
|
|
C* 0 = normal return *
|
|
C* -14 = file name is blank *
|
|
C* -17 = file number limit reached *
|
|
************************************************************************/
|
|
{
|
|
int wrtflg2;
|
|
/*----------------------------------------------------------------------*/
|
|
if ( *wrtflg == 0 ) {
|
|
wrtflg2 = G_TRUE;
|
|
}
|
|
else {
|
|
wrtflg2 = G_FALSE;
|
|
}
|
|
wrtflg2 = G_FALSE;
|
|
gd_open ( gdfile, &wrtflg2, mxanl, mxnav, iacss, anl, rnav, msxgrd,
|
|
iret, strlen(gdfile) );
|
|
return;
|
|
}
|