Commit bbd040c974b4c28942a39cffb7baf485d08c6edc
1 parent
80416fda
Exists in
master
Add function T96_01_MODIFIED in geopack (modified version of T96_01, that not ne…
…ed the tilt angle in arguments)
Showing
2 changed files
with
18 additions
and
2 deletions
Show diff stats
geopack/src/Modif.for
| @@ -7,4 +7,15 @@ | @@ -7,4 +7,15 @@ | ||
| 7 | CALL TRACE_08 (XI,YI,ZI,DIR,DSMAX,ERR,RLIM,R0,IOPT,PARMOD, | 7 | CALL TRACE_08 (XI,YI,ZI,DIR,DSMAX,ERR,RLIM,R0,IOPT,PARMOD, |
| 8 | * T96_01,IGRF_GSW_08,XF,YF,ZF,XX,YY,ZZ,L,LMAX) | 8 | * T96_01,IGRF_GSW_08,XF,YF,ZF,XX,YY,ZZ,L,LMAX) |
| 9 | 9 | ||
| 10 | - END | ||
| 11 | \ No newline at end of file | 10 | \ No newline at end of file |
| 11 | + END | ||
| 12 | + | ||
| 13 | + SUBROUTINE T96_01_MODIFIED (IOPT,PARMOD,X,Y,Z,BX,BY,BZ) | ||
| 14 | + | ||
| 15 | + DIMENSION PARMOD(10) | ||
| 16 | + EXTERNAL T96_01 | ||
| 17 | + | ||
| 18 | + COMMON /GEOPACK1/ PSI | ||
| 19 | + | ||
| 20 | + CALL T96_01 (IOPT,PARMOD,PSI,X,Y,Z,BX,BY,BZ) | ||
| 21 | + | ||
| 22 | + END |
geopack/src/include/geopack.hh
| @@ -22,8 +22,13 @@ extern "C" { | @@ -22,8 +22,13 @@ extern "C" { | ||
| 22 | float* FP_GSW_X_i, float* FP_GSW_Y_i, float* FP_GSW_Z_i, | 22 | float* FP_GSW_X_i, float* FP_GSW_Y_i, float* FP_GSW_Z_i, |
| 23 | float XX[], float YY[], float ZZ[], int* L, int* LMAX); | 23 | float XX[], float YY[], float ZZ[], int* L, int* LMAX); |
| 24 | 24 | ||
| 25 | + void t96_01_modified_ (int* IOPT, float PARMOD[], float* sat_pos_GSW_X_i, float* sat_pos_GSW_Y_i, | ||
| 26 | + float* sat_pos_GSW_Z_i, float* Bx_GSW, float* By_GSW, float* Bz_GSW); | ||
| 27 | + | ||
| 28 | + void igrf_gsw_08_ (float* pos_GSW_X_i, float* pos_GSW_Y_i, float* pos_GSW_Z_i, float* HX_GSW, float* HYGSW, float* HZGSW); | ||
| 29 | + | ||
| 25 | #ifdef __cplusplus | 30 | #ifdef __cplusplus |
| 26 | } | 31 | } |
| 27 | #endif | 32 | #endif |
| 28 | 33 | ||
| 29 | -#endif | ||
| 30 | \ No newline at end of file | 34 | \ No newline at end of file |
| 35 | +#endif |