titl angle

Hacene SI HADJ MOHAND
1 parent b9989537
Showing 2 changed files with 16 additions and 0 deletions Show diff stats
geopack/src/Modif.for
geopack/src/include/geopack.hh
@@ -19,3 +19,16 @@
       CALL T96_01 (IOPT,PARMOD,PSI,X,Y,Z,BX,BY,BZ)
  
       END
+
+      SUBROUTINE RECALC_08_MODIFIED (IYEAR,IDAY,IHOUR,MIN,ISEC,VGSEX,
+     * VGSEY,VGSEZ,TILT_out)
+    
+      EXTERNAL RECALC_08
+
+      COMMON /GEOPACK1/ PSI
+
+      CALL RECALC_08 (IYEAR,IDAY,IHOUR,MIN,ISEC,VGSEX,VGSEY,VGSEZ)
+
+      TILT_out = PSI
+
+      END
@@ -7,6 +7,9 @@ extern &quot;C&quot; {
  
     void recalc_08_(int* iyr, int *iday, int* ihour, int* min, int* isec,
         float* V_GSE_X_i, float* V_GSE_Y_i, float* V_GSE_Z_i);
+
+    void recalc_08_modified_(int* iyr, int *iday, int* ihour, int* min, int* isec,
+        float* V_GSE_X_i, float* V_GSE_Y_i, float* V_GSE_Z_i, float* PSI);
  
     void gswgse_08_(float* sat_pos_GSW_X_i, float* sat_pos_GSW_Y_i, float* sat_pos_GSW_Z_i, 
         float* sat_pos_GSE_X_i, float* sat_pos_GSE_Y_i, float* sat_pos_GSE_Z_i, int* transform_flag);