49dfa99cc5
Added files to index. Former-commit-id:e3d3629375[formerlycf1383a412] [formerlybeae8e7e59[formerly 874ae116e412c39b73dc3cc74ee3f3a3b02d82f7]] Former-commit-id:beae8e7e59Former-commit-id:e1fc0b48c1
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;
|
|
}
|
|
|
|
}
|