I wrote:
> f90 -c -n32 -mips4 -r10000 -O0 -freeform -o ncsu-bbmd-ctxt.o _ncsu-bbmd-ctxt.f
>
> module ncsu_bbmd_ctxt
> ^
> f90-855 f90: ERROR NCSU_BBMD_CTXT, File = _ncsu-bbmd-ctxt.f, Line = 115, Column = 8
> The compiler has detected errors in module "NCSU_BBMD_CTXT". No module information file will be created for this module.
>
> integer :: cv_extents(UMBRELLA_MAX_NEXTENTS)
> ^
> f90-113 f90: ERROR CTXT_INIT, File = _ncsu-bbmd-ctxt.f, Line = 401, Column = 26
> IMPLICIT NONE is specified in the local scope, therefore an explicit type must be specified for data object "UMBRELLA_MAX_NEXTENTS".
And the fix for ncsu-bbmd-ctxt.f is the same as for ncsu-abmd-hooks.f, too.
The next problem is in ncsu-sander-hooks.f:
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 = ''
^
f90-113 f90: ERROR ON_SANDER_INIT, File = _ncsu-sander-hooks.f, Line = 451, Column = 14
IMPLICIT NONE is specified in the local scope, therefore an explicit type must be specified for data object "STRING_LENGTH".
call rem_preinit(my_mdin, my_idx)
^
f90-1205 f90: ERROR ON_SANDER_INIT, File = _ncsu-sander-hooks.f, Line = 463, Column = 27
Dummy argument "MY_MDIN" is longer than the actual argument.
call smd_on_sander_init(my_mdin, my_unit, amass, acrds)
^
f90-1205 f90: ERROR ON_SANDER_INIT, File = _ncsu-sander-hooks.f, Line = 488, Column = 31
Dummy argument "MDIN_NAME" is longer than the actual argument.
call pmd_on_sander_init(my_mdin, my_unit, amass, my_idx)
^
f90-1205 f90: ERROR ON_SANDER_INIT, File = _ncsu-sander-hooks.f, Line = 490, Column = 28
Dummy argument "MDIN_NAME" is longer than the actual argument.
call abmd_on_sander_init(my_mdin, my_unit, amass, my_idx)
^
f90-1205 f90: ERROR ON_SANDER_INIT, File = _ncsu-sander-hooks.f, Line = 491, Column = 29
Dummy argument "MDIN_NAME" is longer than the actual argument.
call bbmd_on_sander_init(my_mdin, my_unit, amass)
^
f90-1205 f90: ERROR ON_SANDER_INIT, File = _ncsu-sander-hooks.f, Line = 495, Column = 32
Dummy argument "MDIN_NAME" is longer than the actual argument.
f90: SGI MIPSpro Fortran 90 Version 7.44 (f14) Mon Dec 15, 2008 12:05:37
f90: 2423 source lines
f90: 7 Error(s), 0 Warning(s), 0 Other message(s), 0 ANSI(s)
cf90: "explain cf90-message number" gives more information about each message
--
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:07:31 PST
