ING_DB

WEGA/contrib/ingres/dbs/tmp/f77/DB

@@ -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

WEGA/contrib/ingres/dbs/tmp/f77/basisdaten.x

@@ -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;
+##	}
+}

WEGA/contrib/ingres/dbs/tmp/f77/rholp2.x

@@ -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;
+}