Posted on 2006-10-31 15:38:24-08 by nudols
help me
i'm trying to compile the CALMET/CALPUFF modelling system on linux box with gfortran compiler and keep getting any errors.The code compiles and runs okay on a PC using a Lahey compiler. the ultime error i find: calpuff.for: In function 'r1mach': calpuff.for:53679: fatal error: gfc_todo: Not Implemented: Initialization of overlapping variables compilation terminated. this is the function: REAL FUNCTION R1MACH (I) C***BEGIN PROLOGUE R1MACH C***PURPOSE Return floating point machine dependent constants. C***LIBRARY SLATEC C***CATEGORY R1 C***TYPE SINGLE PRECISION (R1MACH-S, D1MACH-D) C***KEYWORDS MACHINE CONSTANTS C***AUTHOR Fox, P. A., (Bell Labs) C Hall, A. D., (Bell Labs) C Schryer, N. L., (Bell Labs) C***DESCRIPTION C C R1MACH can be used to obtain machine-dependent parameters for the C local machine environment. real SMALL(2) real LARGE(2) real RIGHT(2) real DIVER(2) real LOG10(2) REAL RMACH(5) SAVE RMACH EQUIVALENCE (RMACH(1),SMALL(1)) EQUIVALENCE (RMACH(2),LARGE(1)) EQUIVALENCE (RMACH(3),RIGHT(1)) EQUIVALENCE (RMACH(4),DIVER(1)) EQUIVALENCE (RMACH(5),LOG10(1)) DATA SMALL(1) / 1.18E-38 / DATA LARGE(1) / 3.40E+38 / DATA RIGHT(1) / 0.595E-07 / DATA DIVER(1) / 1.19E-07 / DATA LOG10(1) / 0.30102999566 / i have Linux version 2.6.12-12mdk Mandriva Linux release 2006.0 CPU: AMD Turion(tm) 64 Mobile Technology ML-34 stepping 02 gfortran -v Using built-in specs. Target: x86_64-mandriva-linux-gnu Configured with: ../configure --prefix=/usr --libexecdir=/usr/lib --with-slibdir=/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --disable-checking --enable-languages=c,c++,ada,f95,objc,java --host=x86_64-mandriva-linux-gnu --with-system-zlib --enable-long-long --enable-__cxa_atexit --enable-clocale=gnu --disable-libunwind-exceptions --enable-java-awt=gtk --with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre --enable-gtk-cairo --disable-libjava-multilib Thread model: posix gcc version 4.0.1 (4.0.1-5mdk for Mandriva Linux release 2006.0) thank you for any ideas
Direct Responses: Write a response
Perl Weekly newsletter
A free weekly newsletter for people who are busy to read all the blogs. click here to check it out.