home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / fortran / 2850 < prev    next >
Encoding:
Text File  |  1992-07-27  |  1.3 KB  |  43 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: adjustable arrays
  5. Message-ID: <simon.712286479@giaeb>
  6. Sender: news@monu6.cc.monash.edu.au (Usenet system)
  7. Organization: Monash University, Melb., Australia.
  8. Date: Tue, 28 Jul 1992 01:21:19 GMT
  9. Lines: 32
  10.  
  11.  
  12. Hi 
  13. I'm using a 
  14. HP-UX giaec A.08.07 A 9000/720 2001133857
  15. machine. I have programs that I wrote that make use of adjustable
  16. dimensions. They worked fine on our previous HP800 type machine, but
  17. come up with a declaration error on the 720's. Do I need a special
  18. switch to enable me to use adjustable dimensions with the f77 command
  19. ?
  20.  
  21. Thanks
  22.  
  23. This is the subroutine that makes use of the adjustable dimension
  24. facility.
  25.  
  26.       SUBROUTINE graph (coords, curves, fname)
  27.       EXTERNAL fill the array
  28.       INTEGER coords, curves
  29.       LOGICAL fill the array
  30.       CHARACTER fname*(*)
  31.       REAL xdra (coords,curves), ydra (coords, curves),tr(curves)
  32. ERROR  __________^^^^^^^^^^
  33.       IF (fill the array (xdra, ydra,tr, coords, curves, fname)) THEN
  34.           CALL graph the array (xdra, ydra,tr, coords, curves, fname)
  35.           CALL do plt
  36.       ELSE
  37.           PRINT *,"Couldn't fill the array so graph was NOT done !!"
  38.           PRINT *,"Sorry about that !!"
  39.       ENDIF
  40.       RETURN
  41.       END
  42.  
  43.