50 lines
824 B
Plaintext
50 lines
824 B
Plaintext
## 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;
|
|
}
|