home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / P_FOTRAN.LZH / DEMOS.FOR / VDICOMM.FOR < prev    next >
Text File  |  1987-12-31  |  712b  |  22 lines
  1. *     VDI interface common areas for Prospero FORTRAN-77
  2.  
  3. *     6 June 1987
  4.  
  5. *     This file can be included in source Fortran programs
  6. *     The array sizes can be increased if required
  7.  
  8.       INTEGER*2 VDI_control,VDI_intin,VDI_intout,VDI_ptsin,VDI_ptsout
  9.  
  10.       COMMON /VDI_control/ VDI_control(0:11)
  11.       COMMON /VDI_intin/   VDI_intin(0:80)
  12.       COMMON /VDI_ptsin/   VDI_ptsin(0:12)
  13.       COMMON /VDI_intout/  VDI_intout(0:45)
  14.       COMMON /VDI_ptsout/  VDI_ptsout(0:12)
  15.  
  16.       INTEGER*4 addr_control, addr_intin, addr_ptsin
  17.       INTEGER*4 addr_intout, addr_ptsout
  18.  
  19.       COMMON /VDIparm/ addr_control, addr_intin, addr_ptsin,
  20.      +                 addr_intout, addr_ptsout
  21.       
  22.