41 lines
1.3 KiB
C
41 lines
1.3 KiB
C
#include "geminc.h"
|
|
#include "gemprm.h"
|
|
|
|
void grc_rnav ( const float *rnvblk, char *proj, int *kx, int *ky,
|
|
int *iret )
|
|
/************************************************************************
|
|
* GR_RNAV *
|
|
* *
|
|
* This subroutine gets the projection and grid size from a grid *
|
|
* navigation block. *
|
|
* *
|
|
* GR_RNAV ( RNVBLK, PROJ, KX, KY, IRET ) *
|
|
* *
|
|
* Input parameters: *
|
|
* RNVBLK (LLNNAV) REAL Navigation block *
|
|
* *
|
|
* Output parameters: *
|
|
* PROJ CHAR* Projection name *
|
|
* KX INTEGER Number of points in x dir *
|
|
* KY INTEGER Number of points in y dir *
|
|
* IRET INTEGER Return code *
|
|
* 0 = normal return *
|
|
* -6 = invalid navigation *
|
|
** *
|
|
* Log: *
|
|
* M. desJardins/GSFC 8/88 Modified from GR_RSNV *
|
|
* M. Linda/GSC 9/97 Corrected right border of prologue *
|
|
* D.W.Plummer/NCEP 2/06 Translated from FORTRAN *
|
|
***********************************************************************/
|
|
{
|
|
char tproj[5];
|
|
int nc, ier;
|
|
/*---------------------------------------------------------------------*/
|
|
gr_rnav ( (float *)rnvblk, tproj, kx, ky, iret, sizeof(tproj) );
|
|
tproj[4] = '\0';
|
|
cst_lstr ( tproj, &nc, &ier );
|
|
tproj[nc] = '\0';
|
|
strcpy ( proj, tproj );
|
|
|
|
return;
|
|
}
|