Re: [PerfSuite-users] libpshwpc; working around implicit variables?

[Haoqiang H. J. <hj...@na...>]

Tirath,

On your second problem:

> g77 -c -O2 -I/usr/local/include -malign-double -fautomatic -Wno-
> globals -fno-globals gamess.f
> source/gamess.srcpp: In program `gamess':
> source/gamess.srcpp:320:
>           IMPLICIT DOUBLE PRECISION(A-H,O-Z)
>           1
> fperfsuite.h:45: (continued):
>           integer PS_PID, PS_PPID, PS_PGRP, PS_SESSION, PS_TTY,
>           2
> Statement at (1) invalid in context established by statement at (2)
> ... (it goes on like that)...
>
> Does anyone know of a workaround for situations like this?
>

You probably placed
 	INCLUDE 'fperfsuite.h'  (or similar)
before
 	IMPLICIT DOUBLE PRECISION(A-H,O-Z)

This is not allowed in Fortran.  Try something like:

 	IMPLICIT DOUBLE PRECISION(A-H,O-Z)
 	INCLUDE 'fperfsuite.h'


-Henry Jin
NASA Ames Research Center