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