/[PAMELA software]/DarthVader/OrbitalInfo/src/igrf_sub.for
ViewVC logotype

Diff of /DarthVader/OrbitalInfo/src/igrf_sub.for

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mocchiut, Tue Jan 23 17:03:39 2007 UTC revision 1.2 by mocchiut, Fri Apr 27 10:35:35 2007 UTC
# Line 931  C--------------------------------------- Line 931  C---------------------------------------
931          COMMON/PPATH/ L1,L2,L3,P1, P2, P3          COMMON/PPATH/ L1,L2,L3,P1, P2, P3
932          SAVE/PPATH/          SAVE/PPATH/
933    
934          COMMON/GENER/   UMR,ERA,AQUAD,BQUAD          COMMON/GENER/UMR,ERA,AQUAD,BQUAD
935          SAVE/GENER/          SAVE/GENER/
936    
         P1 = TP1  
         P2 = TP2  
         P3 = TP3  
937          L1 = TL1          L1 = TL1
938          L2 = TL2          L2 = TL2
939          L3 = TL3          L3 = TL3
940            P1 = TP1(1:L1)
941            P2 = TP2(1:L2)
942            P3 = TP3(1:L3)
943    
944          ERA=6371.2          ERA=6371.2
945          EREQU=6378.16          EREQU=6378.16
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23