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

(Source file text) 

---

      SUBROUTINE HHSMSQ(B,L,M,F)
C 
C        PURPOSE
C           TO CALCULATE THE SUM OF SQUARES OF RESIDUALS
C 
      DIMENSION B(2)
C 
      F = 0.
      JB = 1
      DO 10 I=1,M 
      F = F + B(JB)*B(JB) 
   10 JB = JB + L 
C 
      RETURN
      END 


---