--- DarthVader/OrbitalInfo/src/igrf_sub.for	2014/01/17 09:54:31	1.9
+++ DarthVader/OrbitalInfo/src/igrf_sub.for	2014/08/29 07:06:41	1.10
@@ -947,7 +947,7 @@
 C ASTRONOMICAL UNION .
 C-----------------------------------------------------------------
         INTEGER TL1,TL2,TL3
-        CHARACTER (len=258) TP1,TP2,TP3
+        CHARACTER (len=*) :: TP1,TP2,TP3
         INTEGER L1,L2,L3
         CHARACTER *258 P1,P2,P3
         COMMON/PPATH/ L1,L2,L3,P1, P2, P3