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