SUBROUTINE ERLPRO C C This module of the ERLANG program determines which C trunk occupancy module to call. C C B. Z. Lederman I.T.T. World Communications C REAL*8 QUANT BYTE ANS C 10 WRITE (5, 100) 100 FORMAT ('0 Enter the type of probability,' / 1'$ SINGLE, AVERAGE, or TABLE: ') READ (5, 120, END=430) QUANT 120 FORMAT (A8) C IF (QUANT .EQ. 'AVERAGE' ) CALL ERLAVE IF (QUANT .EQ. 'SINGLE' ) CALL ERLSIN IF (QUANT .EQ. 'TABLE' ) CALL ERLTAB C IF (QUANT .EQ. 'STOP' ) GO TO 430 IF (QUANT .EQ. 'EXIT' ) GO TO 430 IF (QUANT .EQ. 'END' ) GO TO 430 C ANS = 'N' 700 WRITE (5, 710) 710 FORMAT ('$ Another probability problem [Y/N] ?: ') READ (5, 420, END=430) ANS 420 FORMAT (A1) IF ((ANS .EQ. 'Y') .OR. (ANS .EQ. 'y')) GO TO 10 C 430 RETURN C END