--- DarthVader/OrbitalInfo/src/igrf_sub.for	2007/01/23 17:03:39	1.1
+++ DarthVader/OrbitalInfo/src/igrf_sub.for	2007/04/27 10:35:35	1.2
@@ -931,15 +931,15 @@
         COMMON/PPATH/ L1,L2,L3,P1, P2, P3
         SAVE/PPATH/
 
-        COMMON/GENER/   UMR,ERA,AQUAD,BQUAD
+        COMMON/GENER/UMR,ERA,AQUAD,BQUAD
         SAVE/GENER/
 
-        P1 = TP1
-        P2 = TP2
-        P3 = TP3
         L1 = TL1
         L2 = TL2
         L3 = TL3
+        P1 = TP1(1:L1)
+        P2 = TP2(1:L2)
+        P3 = TP3(1:L3)
 
         ERA=6371.2
         EREQU=6378.16