🚀 go-pugleaf

In article <7876@dove.nist.gov>, fred@poly2.nist.gov (Frederick R. Phelan Jr.) writes:
> Heres a small code prototype of my problem:
> 
>       program test_35
> 
>       structure /geom/
>         integer ngprops
>       end structure
>       record /geom/ g1,g2
> 
> c     uncomment these for compiler havoc
> c      data g1.ngprops /3/
> c      data g2.ngprops /5/
> 
It is unfortunate that a person at  N  I  !!!S!!!  T  is not using
a STANDARD language 8^).

In standard Fortran 90, it goes like this:

program test_35

type geom
  integer ngprops
end type geom

type (geom) g1, g2

data g1%ngprops /3/
data g2%ngprops /5/

print*, g1, g2
end

I believe this will run on SGI machines using the NAG compiler,
an execellent tool for code development and learning until SGI
gets their own compiler.
-- 
Walt Brainerd                walt@netcom.com
Unicomp, Inc.                +1-415-949-4052
235 Mt. Hamilton Ave.        +1-415-949-4058 (fax)
Los Altos, CA 94022 USA      "F90--Fortran for the '90s"