20020624: compiling UDUNITS-using readgeneral.f

Mekonnen,

>Date: Sat, 22 Jun 2002 15:14:38 -0500
>From: "Mekonnen G. Woldemariam" <address@hidden>
>Organization: University of Iowa
>To: Steve Emmerson <address@hidden>
>Subject: RE: 20020621: compiling UDUNITS-using readgeneral.f
>Keywords: 200206202043.g5KKhRa05810

The above message contained the following:

> Thanks for your reply.
> (1) I couldn't rename the file /tmp/ccINycBh.f, because I don't have 
> permission.
> 
> (2) I renamed the file udunits.inc as udunits.F, and I replaced all the words 
> "udunits.inc" in the readgeneral.F by udunits.F. But still I got the error 
> message which is attached herewith.
> 
> I am using the f77 compiler.

Is that /usr/bin/f77?

> 
> Thanks,
> Mekonnen
...

> readgeneral.F: In program `MAIN__':
> readgeneral.F:116: warning:
>              print*,x(2,2),x(72,36),ny,nm,nd,nh
>                              ^
> Array element value at (^) out of defined range
> readgeneral.F:116: warning:
>              print*,x(2,2),x(72,36),ny,nm,nd,nh
>                                 ^
> Array element value at (^) out of defined range
> In file included from /tmp/cc0vvjFe.f:176:
> ./udunits-1.11.7/include/udunits.F: In subroutine `gridread':
> ./udunits-1.11.7/include/udunits.F:27: undefined or invalid # directive
> ./udunits-1.11.7/include/udunits.F:36: 
>          PTR utmake
>          1         2

It would help if I could see the compilation command-line that you're 
using to compile readgeneralF.

Line 27 in my "udunits.inc" is

    #ifndef PTR

What is it in yours?

If you change "ifndef PTR" to "if ! defined(PTR)" do you still get the
same error?

Regards,
Steve Emmerson   <http://www.unidata.ucar.edu>