005d9ccae2
Former-commit-id:0b15dff12b[formerlya8d90da9c0] [formerly4f86b07eb0] [formerly0b15dff12b[formerlya8d90da9c0] [formerly4f86b07eb0] [formerly42189b5f88[formerly4f86b07eb0[formerly 0c4514d3be8e7dee89a2abe903b51155a2895fd4]]]] Former-commit-id:42189b5f88Former-commit-id:4c8e604619[formerlyf1256f2a9e] [formerly 14e868b80bdcdb7270336e9346e3a2f321283073 [formerlyb7f1dbe72b]] Former-commit-id: bc0b5a7bf290d46a49a6251bcf649c05a7b9d563 [formerly775a338b90] Former-commit-id:1ef10eaf2c
27 lines
1 KiB
C
27 lines
1 KiB
C
#include "geminc.h"
|
|
#include "gemprm.h"
|
|
|
|
void gdc_gcyc ( char *gdfile, char *cycles, int *iret )
|
|
/************************************************************************
|
|
C* Input parameters: *
|
|
C* GDFILE CHAR* Grid file name *
|
|
C* *
|
|
C* Output parameters: *
|
|
C* CYCLES CHAR* List of GEMPAK times *
|
|
C* IRET INTEGER Return code *
|
|
C* 0 = normal return *
|
|
************************************************************************/
|
|
{
|
|
int nn,ret=0;
|
|
char tmp[1024];
|
|
/*----------------------------------------------------------------------*/
|
|
*iret = 0;
|
|
gd_gcyc(gdfile, ";", &nn, tmp, &ret,strlen(gdfile),1,sizeof(tmp));
|
|
if ( ret == 0 ) {
|
|
strcpy ( cycles, tmp );
|
|
}
|
|
else {
|
|
*iret = ret;
|
|
}
|
|
return;
|
|
}
|