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

(Source file text) 

---

      SUBROUTINE HHPIV(A,B,IASEP,IBSEP,M,H,G) 
C 
C        PURPOSE
C         TO CALCULATE PIVOTING FACTORS H AND G 
C 
      DIMENSION A(2),B(2) 
C 
      H = 0.
      G = 0.
      JA = 1
      JB = 1
      DO 2 I=1,M
      G = G + A(JA)*B(JB) 
      H = H + A(JA)*A(JA) 
      JA = JA + IASEP 
    2 JB = JB + IBSEP 
C 
      RETURN
      END 


---