#include "f2c.h"
#include <stddef.h>
#include <stdio.h>
#include <math.h>
#include <ctype.h>
#define a ((doublereal *)&equiv_3) |
#define a ((doublereal *)&equiv_3) |
#define coord11_1 (*(struct coord11_1_ *) &coord11_) |
#define coord11_2 (*(struct coord11_2_ *) &coord11_) |
#define coord21_1 (*(struct coord21_1_ *) &coord21_) |
#define coord21_2 (*(struct coord21_2_ *) &coord21_) |
#define loopdip1_1 (*(struct loopdip1_1_ *) &loopdip1_) |
#define p ((doublereal *)&equiv_3 + 16) |
#define p1 ((doublereal *)&equiv_3 + 64) |
#define q ((doublereal *)&equiv_3 + 20) |
#define q1 ((doublereal *)&equiv_3 + 72) |
#define r1 ((doublereal *)&equiv_3 + 68) |
#define r__ ((doublereal *)&equiv_3 + 18) |
#define s ((doublereal *)&equiv_3 + 22) |
#define s1 ((doublereal *)&equiv_3 + 76) |
#define warp_1 (warp_._1) |
#define warp_2 (warp_._2) |
#define warp_3 (warp_._3) |
#define warp_4 (warp_._4) |
int bconic_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | cbx, | |||
doublereal * | cby, | |||
doublereal * | cbz, | |||
integer * | nmax | |||
) |
doublereal bes0_ | ( | doublereal * | x | ) |
doublereal bes1_ | ( | doublereal * | x | ) |
doublereal bes_ | ( | doublereal * | x, | |
integer * | k | |||
) |
int birk1shld_ | ( | doublereal * | ps, | |
doublereal * | x, | |||
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int birk1tot_02__ | ( | doublereal * | ps, | |
doublereal * | x, | |||
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int birk2shl_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | ps, | |||
doublereal * | hx, | |||
doublereal * | hy, | |||
doublereal * | hz | |||
) |
int birk2tot_02__ | ( | doublereal * | ps, | |
doublereal * | x, | |||
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int circle_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | rl, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int condip1_ | ( | doublereal * | xi, | |
doublereal * | d__ | |||
) |
int crosslp_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz, | |||
doublereal * | xc, | |||
doublereal * | rl, | |||
doublereal * | al | |||
) |
int cylhar1_ | ( | doublereal * | a, | |
doublereal * | x, | |||
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int cylharm_ | ( | doublereal * | a, | |
doublereal * | x, | |||
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int dipdistr_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz, | |||
integer * | mode | |||
) |
int diploop1_ | ( | doublereal * | xi, | |
doublereal * | d__ | |||
) |
int dipshld_ | ( | doublereal * | ps, | |
doublereal * | x, | |||
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int dipxyz_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bxx, | |||
doublereal * | byx, | |||
doublereal * | bzx, | |||
doublereal * | bxy, | |||
doublereal * | byy, | |||
doublereal * | bzy, | |||
doublereal * | bxz, | |||
doublereal * | byz, | |||
doublereal * | bzz | |||
) |
doublereal fexp1_ | ( | doublereal * | s, | |
doublereal * | a | |||
) |
doublereal fexp_ | ( | doublereal * | s, | |
doublereal * | a | |||
) |
int intercon_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int loops4_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz, | |||
doublereal * | xc, | |||
doublereal * | yc, | |||
doublereal * | zc, | |||
doublereal * | r__, | |||
doublereal * | theta, | |||
doublereal * | phi | |||
) |
int r2_birk__ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | ps, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int r2inner_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int r2outer_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int r2sheet_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int ringcurr96_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int shlcar3x3_ | ( | doublereal * | a, | |
doublereal * | x, | |||
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | sps, | |||
doublereal * | hx, | |||
doublereal * | hy, | |||
doublereal * | hz | |||
) |
int t96_01__ | ( | integer * | iopt, | |
real * | parmod, | |||
real * | ps, | |||
real * | x, | |||
real * | y, | |||
real * | z__, | |||
real * | bx, | |||
real * | by, | |||
real * | bz | |||
) |
int tail87_ | ( | doublereal * | x, | |
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | bz | |||
) |
int taildisk_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bx, | |||
doublereal * | by, | |||
doublereal * | bz | |||
) |
int tailrc96_ | ( | doublereal * | sps, | |
doublereal * | x, | |||
doublereal * | y, | |||
doublereal * | z__, | |||
doublereal * | bxrc, | |||
doublereal * | byrc, | |||
doublereal * | bzrc, | |||
doublereal * | bxt2, | |||
doublereal * | byt2, | |||
doublereal * | bzt2, | |||
doublereal * | bxt3, | |||
doublereal * | byt3, | |||
doublereal * | bzt3 | |||
) |
doublereal tksi_ | ( | doublereal * | xksi, | |
doublereal * | xks0, | |||
doublereal * | dxksi | |||
) |
doublereal xksi_ | ( | doublereal * | x, | |
doublereal * | y, | |||
doublereal * | z__ | |||
) |
struct { ... } _1 |
struct { ... } _2 |
struct { ... } _3 |
struct { ... } _4 |
doublereal c_b3 = .14 [static] |
doublereal c_b35 = 1. [static] |
doublereal c_b47 = .1666666667 [static] |
struct { ... } coord11_ |
struct { ... } coord21_ |
struct { ... } dx1_ |
doublereal e_1[3] |
doublereal first[3] |
struct { ... } loopdip1_ |
doublereal other[13] |
struct { ... } rhdr_ |
union { ... } warp_ |
doublereal xnext[3] |