Re: AMBER: Compiling AMBER 10 on SGI MIPS and Sun SPARC

From: Atro Tossavainen <atro.tossavainen+amber.helsinki.fi>
Date: Mon, 15 Dec 2008 13:12:53 +0200 (EET)

> 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
Custom Search