Hi,
Can this replacement work?
from
inquire(unit=readUnit, size=size)
size=min(2000,size)/20
to
integer*4 fstatus, tempbuf(13)
fstatus=FSTAT(readUnit, tempbuf)
size=min(2000,tempbuf(8))/20
Best,
--
Mengjuei Hsieh, Molecular Bio & Biochem, University of California Irvine
On Fri, May 13, 2011 at 04:40:33PM -0700, Andreas Goetz wrote:
> Yes, I just checked and this is F2003, I will change it to something
> that is F90.
> All the best,
> Andy
>
> On May 11, 2011, at 7:00 AM, Ross Walker wrote:
> >> gcc 4.3.5, Mac OS X 10.6.7, error message is
> >> gfortran -c -O3 -mtune=generic -ffree-form -o parameterReader.o
> >> _parameterReader.f
> >> _parameterReader.f:114.29:
> >> inquire(unit=readUnit, size=size)
> >> Error: Syntax error in INQUIRE statement at (1)
> >> make[1]: *** [parameterReader.o] Error 1
> >> make: *** [serial] Error 2
> >> This error appears to go away with GCC 4.4.5 on the same machine.
> >> Based on
> > This also breaks ifort 11.1.069 and PGI 7.2. I might also add that calling
> > the variable size when the actual statement is the word size is also
> > probably a recipe for disaster at some point.
> > Ross
_______________________________________________
AMBER-Developers mailing list
AMBER-Developers.ambermd.org
http://lists.ambermd.org/mailman/listinfo/amber-developers
Received on Wed May 18 2011 - 19:00:02 PDT