29
29
OPDS h; /* required header */
30
30
MYFLT *mw, *mx, *my, *mz, *mr, *ms, *mt, *mu, *mv, *mk,
31
31
*ml, *mm, *mn, *mo, *mp, *mq; /* addr outarg */
32
MYFLT *asig, *kalpha, *kbeta, *kin[4]; /* addr inargs */
32
MYFLT *asig, *kalpha, *kbeta, *kin[4]; /* addr inargs */
34
34
double w, x, y, z, r, s, t, u, v, k, l, m, n, o, p, q;