[MITgcm-devel] genmake_tc_2

[Martin Losch]

Ed,

sorry, here's another one in genmake2, that gives an error with pgf77:
> cat > genmake_tcomp.$FS <<EOF
>       program hello
>       CHARACTER(128) string
>       string = ' '
>       call fdate( string )
>       print *, string
>       end
> EOF
The line "CHARACTER(128) string" should be "CHARACTER*(128) string" or 
"CHARACTER*128 string" to work with the PGI F77 compiler (the f90 takes 
all variations). I don't have an F77 reference any longer so I don't 
know the correct F77 syntax (but I recall it's character*128). What do 
you think?

Martin


On Sep 5, 2005, at 4:03 PM, Ed Hill wrote:

> On Mon, 2005-09-05 at 11:44 +0200, Martin Losch wrote:
>> Hi Ed,
>>
>> on our XD1 (with pgf77, build_options/linux_amd64_pgf77+mpi), I keep
>> getting this output
>> ===  Checking system libraries  ===
>>    Do we have the system() command using mpif77...  yes
>>    Do we have the fdate() command using mpif77...  no
>>    Do we have the etime() command using mpif77...  yes
>>    Can we call simple C routines (here, "cloc()") using mpif77...  no
>>    Can we use stat() through C calls...  no
>>    Can we create NetCDF-enabled binaries...  no
>>
>> When I look at the genmake_warnings it says:
>> PGFTN-S-0034-Syntax error at or near identifier programhello
>> (genmake_tc_2.f: 6)
>>
>> This is program in genmake2:
>>>     cat <<EOF > genmake_tc_2.$FS
>>>       program hello
>>>       Real*8 wtime
>>>       external cloc
>>>       call cloc(wtime)
>>>       print *," HELLO WORLD", wtime
>>>       end program hello
>>> EOF
>> I think the last line should be "end" instead of "end program hello"
>> which is a Fortran90 construct, or is this there on purpose?
>
> Hi Martin,
>
> Yes, you're right!
>
> I just converted the "end ..." statements to simply "end" and please 
> let
> me know if it fixes things for you.
>
> thanks,
> Ed
>
> -- 
> Edward H. Hill III, PhD
> office:  MIT Dept. of EAPS;  Rm 54-1424;  77 Massachusetts Ave.
>              Cambridge, MA 02139-4307
> emails:  eh3 at mit.edu                ed at eh3.com
> URLs:    http://web.mit.edu/eh3/    http://eh3.com/
> phone:   617-253-0098
> fax:     617-253-4464
>
> _______________________________________________
> MITgcm-devel mailing list
> MITgcm-devel at mitgcm.org
> http://mitgcm.org/mailman/listinfo/mitgcm-devel