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
40 lines
1.2 KiB
C
40 lines
1.2 KiB
C
#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 );
|
|
}
|