That worked!
Thank you,
-Ben
On Sat, 18 Dec 2004, Bud Davis wrote:
On Sat, 2004-12-18 at 13:22, Benjamin Joseph wrote:
It looks like it's just defining a variable TYPE with a character array. Anyway, as far as compilability is concerned, this works for Intel Fortran Compiler 8.1.
TYPE is declared by default to be of type REAL*8 by the IMPLICIT REAL statement on line 2.
the Intel compiler is quite forgiving. to work with g77 you will have to declare TYPE to be of an INTEGER or CHARACTER type.
It should be a very surgical and safe change, as it makes no sense to either use or set TYPE(1) with a double precision real :)
BLOCK DATA BNCSRC IMPLICIT REAL*8 (A-H,O-Z) INTEGER*8 TYPE
there is good information in the g77 info page concerning running code from other fortran compilers. -finit-local-zero and -fno-automatic are two options that are defaults for other compilers. you might want to think about these a bit before digging deep into the code if the runtime results are not as expected. nothing to do with the current issue, just something to keep in mind.
don't let this little incompatibility dissuade you from using g77. IMHO g77 is the most robust and flexible F77 compiler available.
HTH, bud davis
