51 lines
969 B
Plaintext
51 lines
969 B
Plaintext
## shared f77
|
|
## long Vkey;
|
|
|
|
# define CA_NR 16
|
|
# define NAME 32
|
|
# define SUMFORM 16
|
|
# define V8 24
|
|
|
|
struct basisdaten
|
|
{
|
|
long key;
|
|
char ca_nr[CA_NR];
|
|
char name[NAME];
|
|
char sumform[SUMFORM];
|
|
double v8[V8];
|
|
long quell_nr;
|
|
long version;
|
|
};
|
|
|
|
bdat_(key, ca_nr, name, sumform, v, quell_nr, version, i, cl, nl, sl, vl)
|
|
long *key;
|
|
char *ca_nr;
|
|
char *name;
|
|
char *sumform;
|
|
double *v;
|
|
long *quell_nr;
|
|
long *version;
|
|
long *i; /* or short *i; */
|
|
long *cl; /* length of ca_nr */
|
|
long *nl; /* length of name */
|
|
long *sl; /* length of sumform */
|
|
long *vl; /* length of v-array */
|
|
{
|
|
register int ix;
|
|
register struct basisdaten *bd;
|
|
|
|
*i = -1;
|
|
Vkey = *key;
|
|
## retrieve basisdaten $key = Vkey
|
|
## {
|
|
bd = (struct basisdaten *) AA_STUP;
|
|
AAbmove(bd->ca_nr, ca_nr, CA_NR);
|
|
AAbmove(bd->name, name, NAME);
|
|
AAbmove(bd->sumform, sumform, SUMFORM);
|
|
AAbmove(bd->v8, v, V8);
|
|
*quell_nr = bd->quell_nr;
|
|
*version = bd->version;
|
|
*i = 0;
|
|
## }
|
|
}
|