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
