This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: FORTRAN IV DATA statements
Hi Stephan,
>> The offending lines are
>> COMMON/DATIME/ISDATE(3),ISTIME(2),NAME(2)
>> DATA ISDATE/'01-F','EB-0','2 '/,ISTIME/'15:4','9:27'/
>> and the like (ISDATE implicitly declared a 3 element integer array and
>> expected to hold a 12 character long string).
>>
> CHARACTER*4 :: ISDATE,ISTIME
>
>
As the program is small, I would just apply the following patch and
compile the program with gfortran.
Tobias
--- orig.for 2009-09-01 16:34:52.766683989 +0200
+++ nrlmsise00_sub.for 2009-09-01 16:31:03.529682582 +0200
@@ -132,6 +132,7 @@
C
C To get current values of SW: CALL TRETRV(SW)
C
+ CHARACTER(len=4) :: ISDATE(3),ISTIME(2),NAME(2)
DIMENSION D(9),T(2),AP(7),DS(9),TS(2)
DIMENSION ZN3(5),ZN2(4),SV(25)
COMMON/GTS3C/TLB,S,DB04,DB16,DB28,DB32,DB40,DB48,DB01,ZA,T0,Z0
@@ -1651,6 +1652,7 @@
C-----------------------------------------------------------------------
BLOCK DATA GTD7BK
C MSISE-00 01-FEB-02
+ CHARACTER(len=4) :: ISDATE,ISTIME,NAME
COMMON/PARM7/PT1(50),PT2(50),PT3(50),PA1(50),PA2(50),PA3(50),
$ PB1(50),PB2(50),PB3(50),PC1(50),PC2(50),PC3(50),
$ PD1(50),PD2(50),PD3(50),PE1(50),PE2(50),PE3(50),