632020195a
Former-commit-id:fda897d2d0[formerly253e8bc948] [formerlyfda897d2d0[formerly253e8bc948] [formerly295cbf95e5[formerly 0816cd253c86acc699cb90866131619c4679f631]]] Former-commit-id:295cbf95e5Former-commit-id:2a3bf4ec32[formerlyae3d17c698] Former-commit-id:a610dcde73
40 lines
1.2 KiB
C
Executable file
40 lines
1.2 KiB
C
Executable file
#include "geminc.h"
|
|
#define COORDSYS_GLOBAL
|
|
#include "gemprm.h"
|
|
#define ERCMN_GLOBAL
|
|
#include "ercmn.h"
|
|
|
|
|
|
void er_init ( int *iret )
|
|
/************************************************************************
|
|
* er_init *
|
|
* *
|
|
* This routine initializes the error buffer which is used to store *
|
|
* error messages for later use. *
|
|
* *
|
|
* er_init ( iret ) *
|
|
* *
|
|
* Output parameters: *
|
|
* *iret int Return code *
|
|
* 0 = normal return *
|
|
** *
|
|
* Log: *
|
|
* K. Tyle/GSC 12/96 *
|
|
* K. Tyle/GSC 1/97 Change nstr to nermsg; MXNSTR to MXERST *
|
|
* C. Lin/EAI 1/97 Change msgstr to errmsg *
|
|
* S. Maxwell/GSC 6/97 Documentation changes *
|
|
* M. Linda/GSC 10/97 Corrected the prologue format *
|
|
* A. Hardy/GSC 11/00 Added #define COORDSYS_GLOBAL *
|
|
* S. Jacobs/NCEP 2/01 Changed <= to < for check on MXERST *
|
|
***********************************************************************/
|
|
{
|
|
int i;
|
|
|
|
/*---------------------------------------------------------------------*/
|
|
*iret = 0;
|
|
for ( i = 0; i < MXERST; ++i ) {
|
|
strcpy(errmsg[i],"");
|
|
}
|
|
nermsg = 0;
|
|
// printf ( " nermsg initialized to-------> %d \n",nermsg );
|
|
}
|