Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0026/bool.sss
There are 2 other files named bool.sss in the archive. Click here to see a list.
C BOOL 10
C ..................................................................BOOL 20
C BOOL 30
C USER-SUPPLIED SPECIAL SUBROUTINE - BOOL BOOL 40
C BOOL 50
C THIS SPECIAL SUBROUTINE ILLUSTRATES AN EXTERNAL SUBROUTINE BOOL 60
C CALLED BY SUBROUTINE SUBST. BOOL 70
C BOOL 80
C IF DIFFERENT PROPOSITIONS ARE USED FOR DIFFERENT PROBLEMS IN BOOL 90
C THE SAME RUN, DIFFERENT SUBROUTINES WITH APPROPRIATE PROPOSI- BOOL 100
C TIONS MUST BE COMPILED UNDER DIFFERENT NAMES. IF SO, THESE BOOL 110
C SUBROUTINE NAMES MUST BE DEFINED BY AN EXTERNAL STATEMENT BOOL 120
C APPEARING IN THE MAIN PROGRAM WHICH CALLS SUBST. THEN, FOR BOOL 130
C EACH PROBLEM, SUBST IS CALLED WITH A PROPER SUBROUTINE NAME BOOL 140
C IN ITS ARGUMENT LIST. BOOL 150
C BOOL 160
C ..................................................................BOOL 170
C BOOL 180
SUBROUTINE BOOL(R,T) BOOL 190
DIMENSION R(1) BOOL 200
C BOOL 210
T=R(1)*R(2) BOOL 220
C BOOL 230
RETURN BOOL 240
END BOOL 250