home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / d / fortranfnd / !WimpPoly / f77 / WPolyCH < prev    next >
Encoding:
Text File  |  1991-12-04  |  887 b   |  20 lines
  1.       PARAMETER (MAXSOL=160,MAXW=60,MAXHLP=25)
  2.       CHARACTER *80 NAME, DUAL     
  3.       CHARACTER *64 FNAME
  4.       CHARACTER *80 SOLIDS,TITL3D
  5.       CHARACTER *22 TITLHP
  6.       CHARACTER *78 HELPTX
  7.       CHARACTER *20 VERS
  8.       CHARACTER *10 TITLNT
  9.       CHARACTER *4 NUMBER
  10.       COMMON/POLYCH/NAME,DUAL,FNAME,NUMBER,SOLIDS(MAXSOL),TITLNT,TITL3D,
  11.      1              TITLHP,HELPTX(MAXHLP),VERS
  12. C          NAME = polyhedron name   DUAL = name of dual polyherdon
  13. C          FNAME = name of file to read  NUMBER = no. in netlib list
  14. C          MAXSOL= max no. of SOLIDS in the list MAXW = max length of a name
  15. C          SOLIDS = numbers and names of solids
  16. C          TITLNT,TITL3D titles of window for Net and Solid window
  17. C          TITLHP TITLE FOR HELP WINDOW
  18. C          HELPTX displayed in Help window , maximum size MAXHLP
  19. C          VERS version number for INFO window in template
  20.