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 | 7 | CALL TRACE_08 (XI,YI,ZI,DIR,DSMAX,ERR,RLIM,R0,IOPT,PARMOD, |
| 8 | 8 | * T96_01,IGRF_GSW_08,XF,YF,ZF,XX,YY,ZZ,L,LMAX) |
| 9 | 9 | |
| 10 | - END | |
| 11 | 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 | 22 | float* FP_GSW_X_i, float* FP_GSW_Y_i, float* FP_GSW_Z_i, |
| 23 | 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 | 30 | #ifdef __cplusplus |
| 26 | 31 | } |
| 27 | 32 | #endif |
| 28 | 33 | |
| 29 | -#endif | |
| 30 | 34 | \ No newline at end of file |
| 35 | +#endif | ... | ... |