home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sys / hp / 8619 < prev    next >
Encoding:
Internet Message Format  |  1992-07-28  |  2.2 KB
  1. Path: sparky!uunet!darwin.sura.net!mips!swrinde!sdd.hp.com!hpscdc!cupnews0.cup.hp.com!hppad.waterloo.hp.com!hppad!hpfcso!acmeyer
  2. From: acmeyer@hpfcso.FC.HP.COM (Alan C. Meyer)
  3. Newsgroups: comp.sys.hp
  4. Subject: Re: adjustable arrays 720's f77
  5. Message-ID: <7371177@hpfcso.FC.HP.COM>
  6. Date: 28 Jul 92 14:13:32 GMT
  7. References: <simon.712287118@giaeb>
  8. Organization: Hewlett-Packard, Fort Collins, CO, USA
  9. Lines: 59
  10.  
  11. In comp.sys.hp, simon@giaec.cc.monash.edu.au (simon shields) writes:
  12.  
  13. > I am having problems compiling fortran 77 programs I wrote on an 800
  14. > series that made use of adjustable arrays. I won't compile on the
  15. > 720's we have. 
  16. > 
  17. > The machine I'm using is
  18. > HP-UX giaec A.08.07 A 9000/720 2001133857
  19.  
  20.     ...
  21.  
  22. >       SUBROUTINE graph (coords, curves, fname)
  23. >       EXTERNAL fill the array
  24. >       INTEGER coords, curves
  25. >       LOGICAL fill the array
  26. >       CHARACTER fname*(*)
  27. > -->>> REAL xdra (coords,curves), ydra (coords, curves),tr(curves)
  28.  
  29. The arrays xdra, ydra and tr are *automatic* arrays, not adjustable arrays
  30. (automatics are local arrays of non-constant size, and adjustables are
  31. dummy arguments of non-constant size).
  32.  
  33. S800 Fortran supports automatic arrays, also calling them dynamic arrays.
  34. At 8.07, the S700 compiler does not support this feature.  However, they
  35. have been implemented and will ship with the next S700 release.
  36.  
  37. Until then, one workaround, which will involve changing the source, would
  38. be to use the Cray pointer feature to dynamically allocate the arrays.  So,
  39. change:
  40.  
  41.        SUBROUTINE graph (coords, curves, fname)
  42.        INTEGER coords, curves
  43.        REAL xdra (coords,curves), ydra (coords, curves),tr(curves)
  44.  
  45. to
  46.        SUBROUTINE graph (coords, curves, fname)
  47.        INTEGER coords, curves
  48.        POINTER (ipxdra, xdra(coords,curves))
  49.        POINTER (ipydra, ydra(coords,curves))
  50.        POINTER (iptr, tr(curves))
  51.  
  52.        ipxdra = MALLOC(coords*curves*4)
  53.        ipydra = MALLOC(coords*curves*4)
  54.        iptr = MALLOC(curves*4)
  55.  
  56.        ! reference xdra, ydra and tr as usual
  57.  
  58.        ...
  59.        FREE(ipxdra)
  60.        FREE(ipydra)
  61.        FREE(tr)
  62.        END
  63.  
  64. Alan Meyer
  65. Hewlett-Packard
  66. Colorado Language Lab
  67. acmeyer@fc.hp.com
  68.  
  69. "These are my own opinions ..."
  70.