File: HHSWOP.FT of Disk: Disks/MyPDP/m8-2-rka1-rkb1

(Source file text) 

---

      SUBROUTINE HHSWOP(A,AD,N,NR)
C 
C        PURPOSE
C           TO INTERCHANGE THE FIRST COLUMNS OF MATRICES A AND AD 
C 
      DIMENSION A(2),AD(2)
C 
      JA = 1
      DO 10 I=1,NR
      H = A(JA) 
      A(JA) = AD(JA)
      AD(JA) = H
   10 JA = JA + N 
C 
      RETURN
      END 


---