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

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

Defines

#define geopack_1   (geopack_._1)
#define geopack_2   (geopack_._2)
#define geopack_3   (geopack_._3)
#define geopack_4   (geopack_._4)
#define geopack_5   (geopack_._5)
#define geopack_6   (geopack_._6)
#define geopack_7   (geopack_._7)
#define geopack_8   (geopack_._8)
#define geopack_9   (geopack_._9)
#define geopack_10   (geopack_._10)

Functions

int igrf_ (integer *iy, integer *nm, real *r__, real *t, real *f, real *br, real *bt, real *bf)
int dip_ (real *ps, real *x, real *y, real *z__, real *bx, real *by, real *bz)
int sun_ (integer *iyr, integer *iday, integer *ihour, integer *min__, integer *isec, real *gst, real *slong, real *srasn, real *sdec)
int sphcar_ (real *r__, real *teta, real *phi, real *x, real *y, real *z__, integer *j)
int bspcar_ (real *teta, real *phi, real *br, real *btet, real *bphi, real *bx, real *by, real *bz)
int recalc_ (integer *iyr, integer *iday, integer *ihour, integer *min__, integer *isec)
int geomag_ (real *xgeo, real *ygeo, real *zgeo, real *xmag, real *ymag, real *zmag, integer *j, integer *iyr)
int geigeo_ (real *xgei, real *ygei, real *zgei, real *xgeo, real *ygeo, real *zgeo, integer *j)
int magsm_ (real *xmag, real *ymag, real *zmag, real *xsm, real *ysm, real *zsm, integer *j)
int gsmgse_ (real *xgsm, real *ygsm, real *zgsm, real *xgse, real *ygse, real *zgse, integer *j)
int smgsm_ (real *xsm, real *ysm, real *zsm, real *xgsm, real *ygsm, real *zgsm, integer *j)
int geogsm_ (real *xgeo, real *ygeo, real *zgeo, real *xgsm, real *ygsm, real *zgsm, integer *j)
int rhand_ (real *x, real *y, real *z__, real *r1, real *r2, real *r3, integer *iopt, real *parmod, S_fp exname)
int step_ (integer *n, real *x, real *y, real *z__, real *ds, real *errin, integer *iopt, real *parmod, S_fp exname)
int trace_ (real *xi, real *yi, real *zi, real *dir, real *rlim, real *r0, integer *iharm, integer *np, integer *iopt, real *parmod, S_fp exname, real *xf, real *yf, real *zf, real *xx, real *yy, real *zz, integer *l)

Variables

union {
   struct {
      real   st0
      real   ct0
      real   sl0
      real   cl0
      real   ctcl
      real   stcl
      real   ctsl
      real   stsl
      real   sfi
      real   cfi
      real   sps
      real   cps
      real   shi
      real   chi
      real   hi
      real   psi
      real   xmut
      real   a11
      real   a21
      real   a31
      real   a12
      real   a22
      real   a32
      real   a13
      real   a23
      real   a33
      real   ds3
      integer   k
      integer   iy
      real   cgst
      real   sgst
      real   ba [6]
   }   _1
   struct {
      real   st0
      real   ct0
      real   sl0
      real   cl0
      real   ctcl
      real   stcl
      real   ctsl
      real   stsl
      real   ab [19]
      integer   k
      integer   iy
      real   bb [8]
   }   _2
   struct {
      real   a [27]
      integer   kkkk [2]
      real   cgst
      real   sgst
      real   b [6]
   }   _3
   struct {
      real   a [8]
      real   sfi
      real   cfi
      real   b [7]
      real   ab [10]
      integer   k
      integer   iy
      real   ba [8]
   }   _4
   struct {
      real   a [12]
      real   shi
      real   chi
      real   ab [13]
      integer   k
      integer   iy
      real   ba [8]
   }   _5
   struct {
      real   a [10]
      real   sps
      real   cps
      real   b [15]
      integer   k
      integer   iy
      real   ab [8]
   }   _6
   struct {
      real   aa [17]
      real   a11
      real   a21
      real   a31
      real   a12
      real   a22
      real   a32
      real   a13
      real   a23
      real   a33
      real   d__
      integer   k
      integer   iy
      real   b [8]
   }   _7
   struct {
      real   a [15]
      real   psi
      real   aa [10]
      real   ds3
      integer   k
      integer   iy
      real   bb [8]
   }   _8
   struct {
      real   a [26]
      real   ds3
      integer   k
      integer   iy
      real   b [8]
   }   _9
   struct {
      real   aa [26]
      real   dd
      integer   k1
      integer   k2
      real   bb [8]
   }   _10
} geopack_
static integer c__1 = 1
static doublereal c_b37 = 360.
static integer c__0 = 0
static integer c__25 = 25
static integer c_n1 = -1
static real c_b78 = (float).01

Define Documentation

#define geopack_1   (geopack_._1)

#define geopack_10   (geopack_._10)

#define geopack_2   (geopack_._2)

#define geopack_3   (geopack_._3)

#define geopack_4   (geopack_._4)

#define geopack_5   (geopack_._5)

#define geopack_6   (geopack_._6)

#define geopack_7   (geopack_._7)

#define geopack_8   (geopack_._8)

#define geopack_9   (geopack_._9)

Function Documentation

int bspcar_ ( real *  teta,
real *  phi,
real *  br,
real *  btet,
real *  bphi,
real *  bx,
real *  by,
real *  bz 
)

int dip_ ( real *  ps,
real *  x,
real *  y,
real *  z__,
real *  bx,
real *  by,
real *  bz 
)

int geigeo_ ( real *  xgei,
real *  ygei,
real *  zgei,
real *  xgeo,
real *  ygeo,
real *  zgeo,
integer *  j 
)

int geogsm_ ( real *  xgeo,
real *  ygeo,
real *  zgeo,
real *  xgsm,
real *  ygsm,
real *  zgsm,
integer *  j 
)

int geomag_ ( real *  xgeo,
real *  ygeo,
real *  zgeo,
real *  xmag,
real *  ymag,
real *  zmag,
integer *  j,
integer *  iyr 
)

int gsmgse_ ( real *  xgsm,
real *  ygsm,
real *  zgsm,
real *  xgse,
real *  ygse,
real *  zgse,
integer *  j 
)

int igrf_ ( integer *  iy,
integer *  nm,
real *  r__,
real *  t,
real *  f,
real *  br,
real *  bt,
real *  bf 
)

int magsm_ ( real *  xmag,
real *  ymag,
real *  zmag,
real *  xsm,
real *  ysm,
real *  zsm,
integer *  j 
)

int recalc_ ( integer *  iyr,
integer *  iday,
integer *  ihour,
integer *  min__,
integer *  isec 
)

int rhand_ ( real *  x,
real *  y,
real *  z__,
real *  r1,
real *  r2,
real *  r3,
integer *  iopt,
real *  parmod,
S_fp  exname 
)

int smgsm_ ( real *  xsm,
real *  ysm,
real *  zsm,
real *  xgsm,
real *  ygsm,
real *  zgsm,
integer *  j 
)

int sphcar_ ( real *  r__,
real *  teta,
real *  phi,
real *  x,
real *  y,
real *  z__,
integer *  j 
)

int step_ ( integer *  n,
real *  x,
real *  y,
real *  z__,
real *  ds,
real *  errin,
integer *  iopt,
real *  parmod,
S_fp  exname 
)

int sun_ ( integer *  iyr,
integer *  iday,
integer *  ihour,
integer *  min__,
integer *  isec,
real *  gst,
real *  slong,
real *  srasn,
real *  sdec 
)

int trace_ ( real *  xi,
real *  yi,
real *  zi,
real *  dir,
real *  rlim,
real *  r0,
integer *  iharm,
integer *  np,
integer *  iopt,
real *  parmod,
S_fp  exname,
real *  xf,
real *  yf,
real *  zf,
real *  xx,
real *  yy,
real *  zz,
integer *  l 
)

Variable Documentation

struct { ... } _1

struct { ... } _10

struct { ... } _2

struct { ... } _3

struct { ... } _4

struct { ... } _5

struct { ... } _6

struct { ... } _7

struct { ... } _8

struct { ... } _9

real a[26]

real a11

real a12

real a13

real a21

real a22

real a23

real a31

real a32

real a33

real aa[26]

real ab[8]

real b[8]

real ba[8]

real bb[8]

integer c__0 = 0 [static]

integer c__1 = 1 [static]

integer c__25 = 25 [static]

doublereal c_b37 = 360. [static]

real c_b78 = (float).01 [static]

integer c_n1 = -1 [static]

real cfi

real cgst

real chi

real cl0

real cps

real ct0

real ctcl

real ctsl

real d__

real dd

real ds3

union { ... } geopack_

real hi

integer iy

integer k

integer k1

integer k2

integer kkkk[2]

real psi

real sfi

real sgst

real shi

real sl0

real sps

real st0

real stcl

real stsl

real xmut

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