home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sys / hp / 8599 < prev    next >
Encoding:
Text File  |  1992-07-27  |  2.6 KB  |  89 lines
  1. Newsgroups: comp.sys.hp
  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 720's f77
  5. Message-ID: <simon.712287118@giaeb>
  6. Summary: adjustable arrays in f77 on 720's ?
  7. Keywords: f77,adjustable arrays,compatibility problems
  8. Sender: news@monu6.cc.monash.edu.au (Usenet system)
  9. Organization: Monash University, Melb., Australia.
  10. Date: Tue, 28 Jul 1992 01:31:58 GMT
  11. Lines: 76
  12.  
  13.  
  14. Hi
  15.  
  16. I am having problems compiling fortran 77 programs I wrote on an 800
  17. series that made use of adjustable arrays. I won't compile on the
  18. 720's we have. 
  19.  
  20. The machine I'm using is
  21. HP-UX giaec A.08.07 A 9000/720 2001133857
  22.  
  23. The f77 command I'm using is
  24. f77 +E3 -w -O +E6 -o gas gas.f /usr/local/lib/libncarg.a /usr/local/lib/libncarg_gks.a /usr/local/lib/libncarg_loc.a
  25. gas.f:
  26.    MAIN gas:
  27.    compberthelotorwaals:
  28.    plotberthelotsorwaals:
  29.    determine:
  30.    graph:
  31. Declaration error on/above line 262 of gas.f;  for xdra; adjustable dimension on non-argument
  32. Declaration error on/above line 262 of gas.f;  for ydra; adjustable dimension on non-argument
  33. Declaration error on/above line 262 of gas.f;  for tr; adjustable dimension on non-argument
  34.    fillthearray:
  35.    graphthearray:
  36.    check:
  37.    bndary:
  38.    titles:
  39.    agchil:
  40.    agchax:
  41.    agchcu:
  42.    rtoa:
  43.    lj:
  44.    nonb:
  45.    strlen:
  46.    getresp:
  47.    getcoords:
  48.    checkforerrors:
  49.    upshift:
  50.    doplt:
  51.    pltmenu:
  52.    processpltmenuselection:
  53.    helponpltcmds:
  54.  
  55. f77: Error.  No assembly.
  56. f77: Errors detected, no link
  57.  
  58. The routine producing the problem is 
  59.  
  60.  
  61.  
  62.       SUBROUTINE graph (coords, curves, fname)
  63.       EXTERNAL fill the array
  64.       INTEGER coords, curves
  65.       LOGICAL fill the array
  66.       CHARACTER fname*(*)
  67. -->>> REAL xdra (coords,curves), ydra (coords, curves),tr(curves)
  68.  
  69.       IF (fill the array (xdra, ydra,tr, coords, curves, fname)) THEN
  70.           CALL graph the array (xdra, ydra,tr, coords, curves, fname)
  71.           CALL do plt
  72.       ELSE
  73.           PRINT *,"Couldn't fill the array so graph was NOT done !!"
  74.           PRINT *,"Sorry about that !!"
  75.       ENDIF
  76.       RETURN
  77.       END
  78.  
  79. Any help sincerely appreciated. Results will be reposted.
  80.  
  81. Thanks.
  82.  
  83. /----------------------------------------------------------------|-------\
  84. |  Simon P. Shields Programmer           Viva Cristo Rey !!  ----|----   |
  85. |  MONASH UNIVERSITY COLLEGE GIPPSLAND Ph:+61 51 226 357       .JHS.     |
  86. |  Switchback Rd. Churchill.          Fax:+61 51 226 300       |\|/|     |
  87. |  Australia 3842      Internet: simon@giaea.cc.monash.edu.au  |M J|     |
  88. \------------------------------------------------------------------------/
  89.