6d90dce0b7
Added files to index. Former-commit-id:7324dcd368[formerlye3d3629375] [formerlycf1383a412] [formerly7324dcd368[formerlye3d3629375] [formerlycf1383a412] [formerlybeae8e7e59[formerlycf1383a412[formerly 874ae116e412c39b73dc3cc74ee3f3a3b02d82f7]]]] Former-commit-id:beae8e7e59Former-commit-id:901d493ecf[formerly49dfa99cc5] [formerly c8669b5ab7910607c5f11760fd75aaf1865a062e [formerlye1fc0b48c1]] Former-commit-id: 58f45807010c2a34d66569d325b876da780850a4 [formerly03ad145679] Former-commit-id:57bc02d754
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;
|
|
}
|
|
|
|
}
|