61 lines
2.6 KiB
C
61 lines
2.6 KiB
C
|
#include "fortran_wrappers.h"
|
||
|
|
|
||
|
|
void cgd_ngrd ( int iacss, int *numgrd, char *firstm, char *lasttm,
|
||
|
|
int *iret )
|
||
|
|
/************************************************************************
|
||
|
|
* cgd_ngrd *
|
||
|
|
* *
|
||
|
|
* This subroutine returns the number of grids in a grid file along *
|
||
|
|
* with the first and last time. *
|
||
|
|
* *
|
||
|
|
* cgd_ngrd ( iacss, numgrd, firstm, lasttm, iret ) *
|
||
|
|
* *
|
||
|
|
* Input parameters: *
|
||
|
|
* *iacss int Grid access number *
|
||
|
|
* *
|
||
|
|
* Output parameters: *
|
||
|
|
* *numgrd int Number of grids *
|
||
|
|
* *firstm char Earliest time1 in file *
|
||
|
|
* *lasttm char Latest time1 in file *
|
||
|
|
* *iret int Return code *
|
||
|
|
* 0 = normal return *
|
||
|
|
* -4 = file not open *
|
||
|
|
* -6 = read error *
|
||
|
|
** *
|
||
|
|
* Log: *
|
||
|
|
* R.Tian/SAIC 1/06 C wrapper of GD_NGRD *
|
||
|
|
************************************************************************/
|
||
|
|
{
|
||
|
|
char ftime[MXFLSZ+1], ltime[MXFLSZ+1];
|
||
|
|
int len, ier;
|
||
|
|
/*----------------------------------------------------------------------*/
|
||
|
|
/*
|
||
|
|
* CALL GD_NGRD.
|
||
|
|
*/
|
||
|
|
fprintf(stderr, "cgdngrd.c: entering\n");
|
||
|
|
fprintf(stderr, "cgdngrd.c: before gd_ngrd iacss = %d\n", iacss);
|
||
|
|
gd_ngrd ( &iacss, &numgrd, ftime, ltime, &iret );
|
||
|
|
fprintf(stderr, "cgdngrd.c: after gd_ngrd iacss = %d\n", iacss);
|
||
|
|
fprintf(stderr, "cgdngrd.c: after gd_ngrd numgrd = %d\n", numgrd);
|
||
|
|
fprintf(stderr, "cgdngrd.c: after gd_ngrd iret = %d\n", iret);
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Convert Fortran string to C string.
|
||
|
|
*/
|
||
|
|
ftime[MXFLSZ] = '\0';
|
||
|
|
cst_lstr ( ftime, &len, &ier );
|
||
|
|
ftime[len] = '\0';
|
||
|
|
strcpy ( firstm, ftime );
|
||
|
|
|
||
|
|
fprintf(stderr, "cgdngrd.c: after gd_ngrd ftime = %s\n", ftime);
|
||
|
|
|
||
|
|
ltime[MXFLSZ] = '\0';
|
||
|
|
cst_lstr ( ltime, &len, &ier );
|
||
|
|
ltime[len] = '\0';
|
||
|
|
strcpy ( lasttm, ltime );
|
||
|
|
|
||
|
|
fprintf(stderr, "cgdngrd.c: after gd_ngrd ltime = %s\n", ltime);
|
||
|
|
|
||
|
|
return;
|
||
|
|
}
|