chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ING_DB

This commit is contained in:
Oliver Lehmann 1988-11-15 13:10:13 +00:00
parent c3599b4e8a
commit 77562068db
3 changed files with 132 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
WEGA/contrib/ingres/dbs/tmp/f77/DB Executable file
View File

@ -0,0 +1,33 @@
destroydb f77
creatdb -c -q f77
creater f77 basisdaten \
key i4 \
ca_nr c16 \
name c32 \
sumform c16 \
mw f8 \
tm f8 \
hslm f8 \
tb f8 \
rholb f8 \
cplb f8 \
hlvb f8 \
tc f8 \
pc f8 \
vc f8 \
zc f8 \
omegp f8 \
omegh f8 \
oma f8 \
omb f8 \
delt25 f8 \
vl25 f8 \
rpar f8 \
qpar f8 \
dip f8 \
assko f8 \
parach f8 \
hfo f8 \
so f8 \
quell_nr i4 \
version i4

50
WEGA/contrib/ingres/dbs/tmp/f77/basisdaten.x Normal file
View File

@ -0,0 +1,50 @@
## 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;
## }
}

49
WEGA/contrib/ingres/dbs/tmp/f77/rholp2.x Normal file
View File

@ -0,0 +1,49 @@
## shared f77
## long Vkey;
## long Vtug;
## long Vtog;
# define MAX 10
# define V4 3
# define V8 3
struct rholp2
{
long key;
double v8[V8];
float v4[V4];
long quell_nr;
};
rholp2_(key, tu, to, v4, v8, quell_nr, i, lv4, lv8)
long *key;
long *tu;
long *to;
float *v4;
double *v8;
long *quell_nr;
long *i; /* or short *i; */
long *lv4; /* length of v4 */
long *lv8; /* length of v8 */
{
register int ix;
register struct rholp2 *r2;
ix = -1;
Vkey = *key;
Vtug = *tu;
Vtog = *to;
## retrieve rholp2 $key = Vkey and $tug >= Vtug and $tog <= Vtog
## {
if (++ix < MAX)
{
r2 = (struct rholp2 *) AA_STUP;
AAbmove(r2->v4, &v4[V4 * ix], sizeof r2->v4);
AAbmove(r2->v8, &v8[V8 * ix], sizeof r2->v8);
*quell_nr = r2->quell_nr;
}
## }
ix++;
*i = (ix <= MAX)? ix: -ix;
}