home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / P_FOTRAN.LZH / DEMOS.FOR / AESCOMM.FOR next >
Text File  |  1987-12-31  |  709b  |  20 lines
  1. *     AES INTERFACE COMMON AREAS FOR PROSPERO FORTRAN-77
  2.  
  3. *     15th April 1986
  4.  
  5. *     This file may be included in Fortran source programs
  6. *     The array sizes may be increased if required
  7.  
  8.       INTEGER AES_addrin, AES_addrout
  9.       INTEGER*2 AES_control, AES_global, AES_intin, AES_intout
  10.       COMMON /ACONTR/ AES_control(0:4)
  11.       COMMON /AGLOBA/ AES_global(0:15)
  12.       COMMON /AINTIN/ AES_intin(0:16)
  13.       COMMON /AINTOU/ AES_intout(0:7)
  14.       COMMON /ADDRIN/ AES_addrin(0:2)
  15.       COMMON /ADDROU/ AES_addrout(0:1)
  16.       INTEGER pcontrol, pglobal, pintin, pintout, paddrin, paddrout
  17.       COMMON /CCB/ pcontrol, pglobal, pintin, pintout,
  18.      +             paddrin, paddrout
  19.     
  20.