Re: [AMBER-Developers] Gfortran 4.1 with master branch

From: Ross Walker <ross.rosswalker.co.uk>
Date: Mon, 2 May 2011 03:57:55 -0700

Looks like Portland Group does not work either which is a pain on Cray and
other TeraGrid machines which are configured for this:

(This is with the latest git tree)

mpif90 -c -fast -O3 -fastsse -Mfree -o constants.o _constants.f
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)
PGF90-S-0155-Intrinsic not supported in initialization: log (_constants.f:
151)

mpif90 -show
pgf90 -O2 -fPIC -I/home/diag/opt/mvapich2/1.5.1p1/pgi/include
-I/home/diag/opt/mvapich2/1.5.1p1/pgi/include
-L/home/diag/opt/mvapich2/1.5.1p1/pgi/lib
-L/home/diag/opt/mvapich2/1.5.1p1/pgi/lib -lmpichf90 -lmpichf90 -lmpich
-lopa -lpthread -lrdmacm -libverbs -libumad -ldl -lrt

pgf90 -V

pgf90 10.5-0 64-bit target on x86-64 Linux -tp istanbul-64
Copyright 1989-2000, The Portland Group, Inc. All Rights Reserved.
Copyright 2000-2010, STMicroelectronics, Inc. All Rights Reserved.

Suggestions?

_REAL_, parameter :: FC(1:17) =&
            (/ 1.0D0,1.0D0,2.0D0,6.0D0,24.0D0,120.0D0,720.0D0,5040.0D0, &
     & 40320.0D0,362880.0D0,3628800.0D0,39916800.0D0, &
     & 4.790016D+08,6.2270208D+09,8.71782912D+10, &
     & 1.307674368D+12,2.092278989D+13 /)

_REAL_, parameter :: logFC(1:17) = (/ (log(FC(i)),i=1,17) /)

I guess we should just replace the array with hard coded log values and
ditch the intrinsic altogether?




_______________________________________________
AMBER-Developers mailing list
AMBER-Developers.ambermd.org
http://lists.ambermd.org/mailman/listinfo/amber-developers
Received on Mon May 02 2011 - 04:00:04 PDT
Custom Search