QSAS_2_4/QSAS_dist/src/Ext/Tsyganenko/t96.c File Reference

#include "f2c.h"
#include <stddef.h>
#include <stdio.h>
#include <math.h>
#include <ctype.h>

Classes

struct  coord11_1_
struct  coord11_2_
struct  rhdr_1_
struct  loopdip1_1_
struct  coord21_1_
struct  coord21_2_
struct  dx1_1_

Defines

#define warp_1   (warp_._1)
#define warp_2   (warp_._2)
#define warp_3   (warp_._3)
#define warp_4   (warp_._4)
#define coord11_1   (*(struct coord11_1_ *) &coord11_)
#define coord11_2   (*(struct coord11_2_ *) &coord11_)
#define rhdr_1   (*(struct rhdr_1_ *) &rhdr_)
#define loopdip1_1   (*(struct loopdip1_1_ *) &loopdip1_)
#define coord21_1   (*(struct coord21_1_ *) &coord21_)
#define coord21_2   (*(struct coord21_2_ *) &coord21_)
#define dx1_1   (*(struct dx1_1_ *) &dx1_)
#define a   ((doublereal *)&equiv_3)
#define p1   ((doublereal *)&equiv_3 + 64)
#define q1   ((doublereal *)&equiv_3 + 72)
#define r1   ((doublereal *)&equiv_3 + 68)
#define s1   ((doublereal *)&equiv_3 + 76)
#define a   ((doublereal *)&equiv_3)
#define p   ((doublereal *)&equiv_3 + 16)
#define q   ((doublereal *)&equiv_3 + 20)
#define r__   ((doublereal *)&equiv_3 + 18)
#define s   ((doublereal *)&equiv_3 + 22)

Functions

int t96_01__ (integer *iopt, real *parmod, real *ps, real *x, real *y, real *z__, real *bx, real *by, real *bz)
int dipshld_ (doublereal *ps, 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 cylhar1_ (doublereal *a, doublereal *x, doublereal *y, doublereal *z__, doublereal *bx, doublereal *by, doublereal *bz)
doublereal bes_ (doublereal *x, integer *k)
doublereal bes0_ (doublereal *x)
doublereal bes1_ (doublereal *x)
int intercon_ (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)
int ringcurr96_ (doublereal *x, doublereal *y, doublereal *z__, doublereal *bx, doublereal *by, doublereal *bz)
int taildisk_ (doublereal *x, doublereal *y, doublereal *z__, doublereal *bx, doublereal *by, doublereal *bz)
int tail87_ (doublereal *x, doublereal *z__, doublereal *bx, doublereal *bz)
int shlcar3x3_ (doublereal *a, doublereal *x, doublereal *y, doublereal *z__, doublereal *sps, doublereal *hx, doublereal *hy, doublereal *hz)
int birk1tot_02__ (doublereal *ps, doublereal *x, doublereal *y, doublereal *z__, doublereal *bx, doublereal *by, doublereal *bz)
int diploop1_ (doublereal *xi, doublereal *d__)
int circle_ (doublereal *x, doublereal *y, doublereal *z__, doublereal *rl, doublereal *bx, doublereal *by, doublereal *bz)
int crosslp_ (doublereal *x, doublereal *y, doublereal *z__, doublereal *bx, doublereal *by, doublereal *bz, doublereal *xc, doublereal *rl, doublereal *al)
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)
int condip1_ (doublereal *xi, doublereal *d__)
int birk1shld_ (doublereal *ps, doublereal *x, doublereal *y, doublereal *z__, doublereal *bx, doublereal *by, doublereal *bz)
int birk2tot_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 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 bconic_ (doublereal *x, doublereal *y, doublereal *z__, doublereal *cbx, doublereal *cby, doublereal *cbz, integer *nmax)
int dipdistr_ (doublereal *x, doublereal *y, doublereal *z__, doublereal *bx, doublereal *by, doublereal *bz, integer *mode)
int r2outer_ (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 r2sheet_ (doublereal *x, doublereal *y, doublereal *z__, doublereal *bx, doublereal *by, doublereal *bz)
doublereal xksi_ (doublereal *x, doublereal *y, doublereal *z__)
doublereal fexp_ (doublereal *s, doublereal *a)
doublereal fexp1_ (doublereal *s, doublereal *a)
doublereal tksi_ (doublereal *xksi, doublereal *xks0, doublereal *dxksi)
int dipole_ (real *ps, real *x, real *y, real *z__, real *bx, real *by, real *bz)

Variables

union {
   struct {
      doublereal   cpss
      doublereal   spss
      doublereal   dpsrr
      doublereal   rps
      doublereal   warp
      doublereal   d__
      doublereal   xs
      doublereal   zs
      doublereal   dxsx
      doublereal   dxsy
      doublereal   dxsz
      doublereal   dzsx
      doublereal   dzsy
      doublereal   dzsz
      doublereal   dzetas
      doublereal   ddzetadx
      doublereal   ddzetady
      doublereal   ddzetadz
      doublereal   zsww
   }   _1
   struct {
      doublereal   cpss
      doublereal   spss
      doublereal   dpsrr
      doublereal   xnext [3]
      doublereal   xs
      doublereal   zswarped
      doublereal   dxsx
      doublereal   dxsy
      doublereal   dxsz
      doublereal   dzsx
      doublereal   dzsywarped
      doublereal   dzsz
      doublereal   other [4]
      doublereal   zs
   }   _2
   struct {
      doublereal   cpss
      doublereal   spss
      doublereal   dpsrr
      doublereal   xnext [3]
      doublereal   xs
      doublereal   zs
      doublereal   dxsx
      doublereal   dxsy
      doublereal   dxsz
      doublereal   other [3]
      doublereal   dzetas
      doublereal   ddzetadx
      doublereal   ddzetady
      doublereal   ddzetadz
      doublereal   zsww
   }   _3
   struct {
      doublereal   first [3]
      doublereal   rps
      doublereal   warp
      doublereal   d__
      doublereal   other [13]
   }   _4
warp_
struct {
   doublereal   e_1 [24]
coord11_
struct {
   doublereal   e_1 [2]
rhdr_
struct {
   doublereal   e_1 [7]
loopdip1_
struct {
   doublereal   e_1 [42]
coord21_
struct {
   doublereal   e_1 [3]
dx1_
static doublereal c_b3 = .14
static integer c__0 = 0
static integer c__1 = 1
static doublereal c_b35 = 1.
static doublereal c_b47 = .1666666667
static integer c__5 = 5

Define Documentation

#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 dx1_1   (*(struct dx1_1_ *) &dx1_)

#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 rhdr_1   (*(struct rhdr_1_ *) &rhdr_)

#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)


Function Documentation

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 dipole_ ( real ps,
real x,
real y,
real z__,
real bx,
real by,
real bz 
)

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__ 
)


Variable Documentation

struct { ... } _1

struct { ... } _2

struct { ... } _3

struct { ... } _4

integer c__0 = 0 [static]

integer c__1 = 1 [static]

integer c__5 = 5 [static]

doublereal c_b3 = .14 [static]

doublereal c_b35 = 1. [static]

doublereal c_b47 = .1666666667 [static]

struct { ... } coord11_

struct { ... } coord21_

struct { ... } dx1_

struct { ... } loopdip1_

struct { ... } rhdr_

union { ... } warp_


Generated on Fri Jan 8 12:51:22 2010 for QSAS by  doxygen 1.5.7