Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/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