Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/absnt.ssp
There are 2 other files named absnt.ssp in the archive. Click here to see a list.
C                                                                       ABSN  10
C     ..................................................................ABSN  20
C                                                                       ABSN  30
C        SUBROUTINE ABSNT                                               ABSN  40
C                                                                       ABSN  50
C        PURPOSE                                                        ABSN  60
C           TEST MISSING OR ZERO VALUES FOR EACH OBSERVATION IN         ABSN  70
C           MATRIX A.                                                   ABSN  80
C                                                                       ABSN  90
C        USAGE                                                          ABSN 100
C           CALL ABSNT (A,S,NO,NV)                                      ABSN 110
C                                                                       ABSN 120
C        DESCRIPTION OF PARAMETERS                                      ABSN 130
C           A  - OBSERVATION MATRIX, NO BY NV                           ABSN 140
C           S  - OUTPUT VECTOR OF LENGTH NO INDICATING THE FOLLOWING    ABSN 150
C                CODES FOR EACH OBSERVATION.                            ABSN 160
C                1  THERE IS NOT A MISSING OR ZERO VALUE.               ABSN 170
C                0  AT LEAST ONE VALUE IS MISSING OR ZERO.              ABSN 180
C           NO - NUMBER OF OBSERVATIONS. NO MUST BE > OR = TO 1.        ABSN 190
C           NV - NUMBER OF VARIABLES FOR EACH OBSERVATION. NV MUST BE   ABSN 200
C                GREATER THAN OR EQUAL TO 1.                            ABSN 201
C                                                                       ABSN 210
C        REMARKS                                                        ABSN 220
C           NONE                                                        ABSN 230
C                                                                       ABSN 240
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  ABSN 250
C           NONE                                                        ABSN 260
C                                                                       ABSN 270
C        METHOD                                                         ABSN 280
C           A TEST IS MADE FOR EACH ROW (OBSERVATION) OF THE MATRIX A.  ABSN 290
C           IF THERE IS NOT A MISSING OR ZERO VALUE, 1 IS PLACED IN     ABSN 300
C           S(J). IF AT LEAST ONE VALUE IS MISSING OR ZERO, 0 IS PLACED ABSN 310
C           IN S(J).                                                    ABSN 320
C                                                                       ABSN 330
C     ..................................................................ABSN 340
C                                                                       ABSN 350
      SUBROUTINE ABSNT(A,S,NO,NV)                                       ABSN 360
      DIMENSION A(1),S(1)                                               ABSN 370
C                                                                       ABSN 380
      DO 20 J=1,NO                                                      ABSN 390
      IJ=J-NO                                                           ABSN 400
      S(J)=1.0                                                          ABSN 410
      DO 10 I=1,NV                                                      ABSN 420
      IJ=IJ+NO                                                          ABSN 430
      IF(A(IJ)) 10,5,10                                                 ABSN 440
    5 S(J)=0                                                            ABSN 450
      GO TO 20                                                          ABSN 460
   10 CONTINUE                                                          ABSN 470
   20 CONTINUE                                                          ABSN 480
      RETURN                                                            ABSN 490
      END                                                               ABSN 500