home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / exa3.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  2.0 KB  |  53 lines
  1.         PROGRAM EXA3
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     Main of Exmple 1                        /
  5. C/      Date-written.   Jan. 21st 1984                          /
  6. C/      File-name.      EXA3.FOR                                /
  7. C/      Remarks.        A single-channel queueing situation.    /
  8. C/                      Simulation with GASP page 140.          /
  9. C/                                                              /
  10. C////////////////////////////////////////////////////////////////
  11. C
  12. C    * ONE WORD INTEGERS EXCEPT NSET & FLNAME
  13.         INTEGER*1       FLNAME(11)
  14.         INTEGER*4       NSET(6,25)
  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
  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.      1  ,/1H ,'Output 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.   200     FORMAT(8A1)
  46.         WRITE(3,210) (FLNAME(I),I=1,11)
  47.   210     FORMAT(1H ,'Input GASP data file name: ',11A1)
  48.         CALL    OPEN(NCRDR,FLNAME,IDRIVE)
  49. C
  50.         CALL    GASP(NSET)
  51.         CALL    EXIT
  52.         END
  53.