On Sat, Dec 13, 2008, Atro Tossavainen wrote:
>
>
> integer :: cv_extents(UMBRELLA_MAX_NEXTENTS)
> ^
> f90-113 f90: ERROR ON_SANDER_INIT, File = _ncsu-abmd-hooks.f, Line = 287, Column = 26
> IMPLICIT NONE is specified in the local scope, therefore an explicit type must be specified for data object "UMBRELLA_MAX_NEXTENTS".
>
> double precision :: u_value, u_derivative(UMBRELLA_MAX_NEXTENTS), alt
I can't see any problem with the code here, and this syntax is used in many
places in the "ncsu" modules. Did you successfully compile any of the ncsu-
files?
You could try the following experiment: UMBRELLA_MAX_NEXTENTS is defined this
way:
use ncsu_umbrella, only : umbrella_t, &
MAX_NUMBER_OF_COLVARS => UMBRELLA_MAX_NEXTENTS
Change that to:
use ncsu_umbrella, only : umbrella_t, UMBRELLA_MAX_NEXTENTS
Then change MAX_NUMBER_OF_COLVARS to UMBRELLA_MAX_NEXTENTS everywhere it
appears.
It could be that the SGI f90 code is not correctly handling these sorts of
indirections.
>
> cd ../dcqtp; make libdivcon.a
> cd mod; make QMMM=-DQMMM -f Makefile.dcsander libdivcon.a
> f90 -c -O1 -free -M../../sander -I../src/include -DHAS_LAPACK -DQMMM -o ../obj/dpinit.o ../src/pb/dpinit.F90
> "dpinit.F90", line 240: error: missing '.
Try removing the initial "&" from line 240. That should not be there, but
apparently most compilers don't complain.
...dac
-----------------------------------------------------------------------
The AMBER Mail Reflector
To post, send mail to amber.scripps.edu
To unsubscribe, send "unsubscribe amber" (in the *body* of the email)
to majordomo.scripps.edu
Received on Mon Dec 15 2008 - 01:08:56 PST
