home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / exa1.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  2.0 KB  |  57 lines
  1.         PROGRAM EXA1
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     Main of Exmple 1                        /
  5. C/      Date-written.   Jan. 16th 1984                          /
  6. C/      File-name.      EXA1.FOR                                /
  7. C/      Remarks.        A single-channel queueing situation.    /
  8. C/                      Simulation with GASP page 118.          /
  9. C/                                                              /
  10. C////////////////////////////////////////////////////////////////
  11. C
  12. C    * ONE WORD INTEGERS EXCEPT NSET
  13. C       
  14.         INTEGER*4       NSET(6,1)
  15. C
  16.       COMMON /C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  17.      1           NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,
  18.      2           TNOW,TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)
  19. C
  20.       COMMON /C2/ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),
  21.      1           MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
  22.      2           QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,
  23.      3         NDAY,NYR,JCLR
  24. C
  25.       COMMON /C3/ XISYS,BUS,XL,XMU
  26. C
  27.     DATA    FLNAME(1),FLNAME(2),FLNAME(3),FLNAME(4),FLNAME(5),
  28.      1  FLNAME(6),FLNAME(7),FLNAME(8),FLNAME(9),FLNAME(10),FLNAME(11)
  29.      2    /'G','A','S','P',' ',' ',' ',' ','D','A','T'/
  30. C
  31. C       --- Set NCRDR equal to the Floppy drive number and
  32. C           NPRNT to the printer number.
  33. C
  34.         NCRDR = 6
  35. C
  36.     IDRIVE = 0
  37.     WRITE(1,90)
  38.    90    FORMAT(1H0,'Output GASP data file to Display(3) or Printer(2)'
  39.      $  ,/1H ,'Input Device Number (3 or 2): ')
  40.     READ(1,95) NPRNT
  41.    95    FORMAT(I1)
  42.     WRITE(1,100)
  43.   100    FORMAT(1H0,'Input GASP data file name (max 8 characters): ')
  44.     READ(1,200) (FLNAME(I),I=1,8)
  45.     WRITE(3,210) (FLNAME(I),I=1,11)
  46.   210    FORMAT(1H ,'Input GASP data file name: ',11A1)
  47.   200    FORMAT(8A1)
  48.     CALL    OPEN(NCRDR,FLNAME,IDRIVE)
  49. C
  50.         XISYS = 1.
  51.         BUS = 1.
  52.         XL = 10.
  53.         XMU = 6.
  54.     CALL    GASP(NSET)
  55.         CALL    EXIT
  56.         END
  57.