901d493ecf
Added files to index. Former-commit-id:7324dcd368[formerlye3d3629375] [formerlycf1383a412] [formerlybeae8e7e59[formerlycf1383a412[formerly 874ae116e412c39b73dc3cc74ee3f3a3b02d82f7]]] Former-commit-id:beae8e7e59Former-commit-id: c8669b5ab7910607c5f11760fd75aaf1865a062e [formerlye1fc0b48c1] Former-commit-id:49dfa99cc5
42 lines
535 B
C
42 lines
535 B
C
#include "geminc.h"
|
|
#include "gemprm.h"
|
|
|
|
void init_driver(int *);
|
|
|
|
void init_driver(int *iret) {
|
|
|
|
int ier, mode = 0;
|
|
|
|
*iret = 0;
|
|
|
|
in_bdta(&ier);
|
|
if ( ier != 0 ) {
|
|
*iret = -11;
|
|
return;
|
|
}
|
|
|
|
gd_init(&ier);
|
|
if ( ier != 0 ) {
|
|
*iret = -12;
|
|
return;
|
|
}
|
|
|
|
gg_init(&mode, &ier);
|
|
if ( ier != 0 ) {
|
|
*iret = -13;
|
|
return;
|
|
}
|
|
|
|
dg_intl(&ier);
|
|
if ( ier != 0 ) {
|
|
*iret = -14;
|
|
return;
|
|
}
|
|
|
|
db_init(&ier);
|
|
if ( ier != 0 ) {
|
|
*iret = -15;
|
|
return;
|
|
}
|
|
|
|
}
|