Parent Directory | Revision Log | Patch
revision 1.9 by mocchiut, Fri Jan 17 09:54:31 2014 UTC | revision 1.10 by mocchiut, Fri Aug 29 07:06:41 2014 UTC | |
---|---|---|
# | Line 947 C ERA, EREQU and ERPOL as recommended by | Line 947 C ERA, EREQU and ERPOL as recommended by |
947 | C ASTRONOMICAL UNION . | C ASTRONOMICAL UNION . |
948 | C----------------------------------------------------------------- | C----------------------------------------------------------------- |
949 | INTEGER TL1,TL2,TL3 | INTEGER TL1,TL2,TL3 |
950 | CHARACTER (len=258) TP1,TP2,TP3 | CHARACTER (len=*) :: TP1,TP2,TP3 |
951 | INTEGER L1,L2,L3 | INTEGER L1,L2,L3 |
952 | CHARACTER *258 P1,P2,P3 | CHARACTER *258 P1,P2,P3 |
953 | COMMON/PPATH/ L1,L2,L3,P1, P2, P3 | COMMON/PPATH/ L1,L2,L3,P1, P2, P3 |
|
ViewVC Help | |
Powered by ViewVC 1.1.23 |