home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sys / sgi / 19015 < prev    next >
Encoding:
Internet Message Format  |  1993-01-21  |  2.1 KB

  1. Path: sparky!uunet!olivea!sgigate!sgi!twilight!dinkum!calvin
  2. From: calvin@dinkum.mti.sgi.com (Calvin H. Vu)
  3. Newsgroups: comp.sys.sgi
  4. Subject: Re: Namelist-directed input in SGI Fortran?
  5. Message-ID: <v5sta0g@twilight.wpd.sgi.com>
  6. Date: 21 Jan 93 22:16:51 GMT
  7. References: <1993Jan21.202525.2050@netnews.whoi.edu>
  8. Sender: news@twilight.wpd.sgi.com ( CNews Account at twilight.wpd.sgi.com )
  9. Organization: Silicon Graphics, Inc.  Mountain View, CA
  10. Lines: 52
  11.  
  12. In <1993Jan21.202525.2050@netnews.whoi.edu> scotty@eos-prog.whoi.edu (Scott J. McCue) writes:
  13.  
  14.  
  15. > I've been tasked to port a Fortran 77 program from VAX-11 Fortran (version unknown,
  16. >circa 1987) to SGI Fortran (3.4.1). I'm relatively weak in Fortran. The VAX-11 code
  17. >uses namelist-directed READs of input files with form:
  18.  
  19. >  Examination of the SGI _Fortran 77 language Reference Manual_, as well as dinking
  20. >around with a small i/o program and the original input file(s), suggests that the VAX-11
  21. >version of the input fileis incorrect for SGI in at least two ways:
  22.  
  23. >1. a READ to an array, i.e. several values per _item_, isn't supported.
  24. >2. more than one _group-name_ per file isn't supported.
  25.  
  26.     Both of these are false.  Probably you ran into some other problems,
  27. not those described above.
  28.  
  29. >My question(s):
  30. >  Is this correct? Or does SGI Fortran indeed support arrays in the namelist as well as
  31. >multiple namelists per file? If the latter and not the former, please provide a template
  32. >of the input file form.
  33.     This is an example of the program and the input file:
  34.  
  35. Test program:
  36.     dimension arr1(5), arr2(5)
  37.     namelist /nm1/ arr1
  38.     namelist /nm2/ arr2
  39.     read (5, nml=nm1)
  40.     read (5, nml=nm2)
  41.     print *, arr1, '\n', arr2
  42.     end
  43.  
  44. Input file:
  45.  $nm1 arr1 = 1, 2, 3, 4, 5
  46.  $end
  47.  $nm2 arr2(5) = 10, arr2 = 6, 7, 8, 9
  48.  $end
  49.  
  50. Running with "a.out < inputfile" gives:
  51.     1.000000       2.000000       3.000000       4.000000       5.000000    
  52.  
  53.     6.000000       7.000000       8.000000       9.000000       10.00000    
  54.  
  55.  
  56. >Thanks in advance
  57. >Scott M.
  58. >scotty@eos-prog.whoi.edu
  59.  
  60. If you still have problems then send me a small test case and sample input
  61. file and I'll take a look at it.
  62.  
  63. - calvin
  64.