home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / exa4.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  2.4 KB  |  65 lines
  1.         PROGRAM EXA4
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     Main of Exmple 4                        /
  5. C/      Date-written.   Jan. 24th 1984                          /
  6. C/      File-name.      EXA4.FOR                                /
  7. C/      Remarks.        Example-4 Simulation of a Drive-in Bank /
  8. C/                      Simulation with GASP page 146.          /
  9. C/                                                              /
  10. C////////////////////////////////////////////////////////////////
  11. C    * ONE WORD INTEGERS EXCEPT FINAME & NSET
  12.     INTEGER*1    FLNAME(11)
  13.         INTEGER*4       NSET(6,25)
  14. C
  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. C
  26.         COMMON /C3/ XL,XMU(2),XBUZ(2),XISYS,CBALK,TCUST,TLD
  27. C
  28.         DATA    FLNAME(1),FLNAME(2),FLNAME(3),FLNAME(4),FLNAME(5),
  29.      1  FLNAME(6),FLNAME(7),FLNAME(8),FLNAME(9),FLNAME(10),FLNAME(11)
  30.      2  /'G','A','S','P',' ',' ',' ',' ','D','A','T'/
  31.     DATA    XL,XMU,XBUZ,XISYS/0.4,1.0,1.0,1.0,1.0,6.0/
  32. C
  33. C       --- Set NCRDR equal to the Floppy drive number and
  34. C           NPRNT to the printer number.
  35. C
  36.         NCRDR = 6
  37. C
  38.         IDRIVE = 0
  39.         WRITE(1,90)
  40.    90   FORMAT(1H0,'Output GASP data file to Display(3) or Printer(2)',
  41.      1         /1H ,'Output Device Number (3 or 2): ')
  42.         READ(1,95) NPRNT
  43.    95      FORMAT(I1)
  44.         WRITE(1,100)
  45.   100     FORMAT(1H0,'Input GASP data file name (max 8 characters): ')
  46.         READ(1,200) (FLNAME(I),I=1,8)
  47.   200     FORMAT(8A1)
  48.         WRITE(1,210) (FLNAME(I),I=1,11)
  49.   210     FORMAT(1H ,'Input GASP data file name: ',11A1)
  50.         CALL    OPEN(NCRDR,FLNAME,IDRIVE)
  51. C
  52.     WRITE(3,1000) XL,XMU(1),XMU(2),XBUZ(1),XBUZ(2),XISYS
  53.  1000     FORMAT(1H ,6F10.2)
  54. C
  55. C       --- Initailize number of customers balking (CBALK), total
  56. C           customers arriving (TCUST), and time last departure
  57. C           (TLD) at 0.
  58. C
  59.         CBALK = 0.0
  60.         TCUST = 0.0
  61.         TLD = 0.0
  62.         CALL    GASP(NSET)
  63.         CALL    EXIT
  64.         END
  65.