It seems that the order of statements is important in the following,
since both ifort and gfortran give the same error.
But I don't understand why that must be so. Could someone explain?
This routine gives an error message
Subroutine B (IFL, T, TA)
Integer, Intent(IN) :: IFL
Real, Intent(OUT) :: T(3,KTMX), TA(KTMX)
Integer, Parameter :: KTMX=20
t = ifl
ta = ifl
End Subroutine B
But the following two variations of it do not
Subroutine G1 (IFL, T, TA)
Integer, Intent(IN) :: IFL
Real, Intent(OUT) :: T, TA
Integer, Parameter :: KTMX=20
Dimension T(3,KTMX), TA(KTMX)
t = ifl
ta = ifl
End Subroutine G1
Subroutine G2 (IFL, T, TA)
Integer, Parameter :: KTMX=20
Integer, Intent(IN) :: IFL
Real, Intent(OUT) :: T(3,KTMX), TA(KTMX)
t = ifl
ta = ifl
End Subroutine G2
--
Dr. W. J. Metzger Experimental High Energy Physics Group
tel. +31-24-3653127 Faculty of Science
+31-24-3652099 (secr.) Radboud University Nijmegen
fax. +31-24-3652191 Heyendaalseweg 135
6525 AJ Nijmegen, The Netherlands
e-mail: [log in to unmask] or [log in to unmask]
http://home.cern.ch/metzger/ or http://www.hef.ru.nl/~wes
|