> f90 -c -n32 -mips4 -r10000 -O3 -freeform -o ncsu-sander-hooks.o _ncsu-sander-hooks.f
>
> module ncsu_sander_hooks
> ^
> f90-855 f90: ERROR NCSU_SANDER_HOOKS, File = _ncsu-sander-hooks.f, Line = 121, Column = 8
> The compiler has detected errors in module "NCSU_SANDER_HOOKS". No module information file will be created for this module.
>
> character(STRING_LENGTH), save :: my_mdin = ''
This is within a #ifdef MPI, so it's not surprising it wasn't a problem
in the serial version. There's a
use ncsu_constants, only : SL => STRING_LENGTH
in the beginning of the file, and all other references in the file are
to SL.
Changing line 165 of ncsu-sander-hooks.f to read
character(SL), save :: my_mdin = ''
makes the problem go away.
Now this makes me wonder: if the indirection works here, why is it not
working with the UMBRELLA_MAX_NEXTENTS in the previous cases?
--
Atro Tossavainen (Mr.) / The Institute of Biotechnology at
Systems Analyst, Techno-Amish & / the University of Helsinki, Finland,
+358-9-19158939 UNIX Dinosaur / employs me, but my opinions are my own.
< URL : http : / / www . helsinki . fi / %7E atossava / > NO FILE ATTACHMENTS
-----------------------------------------------------------------------
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 Wed Dec 17 2008 - 01:08:07 PST
