      SUBROUTINE DOT(A,B,IMIN,IMAX,PARPRO,DOTPRO) 
C     PURPOSE--TO COMPUTE THE DOT PRODUCT BETWEEN 2 VECTORS--A AND B. 
C     ONLY ELEMENTS IMIN THROUGH IMAX OF THE 2 VECTORS ARE CONSIDERED.
C     THE COMPUTED DOT PRODUCT IS ADDED TO THE INPUT VALUE PARPRO
C     TO YIELD A FINAL ANSWER FOR DOTPRO.
C     UPDATED         --NOVEMBER  1975. 
C
C---------------------------------------------------------------------
C
      DOUBLE PRECISION SUM,PROD,DPARPR
      DIMENSION A(1),B(1)
C
C-----START POINT-----------------------------------------------------
C
      DPARPR=PARPRO 
      SUM=0.0D0
      IF(IMIN.GT.IMAX)GOTO150 
      DO100I=IMIN,IMAX
      PROD=A(I)*B(I)
      SUM=SUM+PROD
  100 CONTINUE
  150 DOTPRO=SUM+DPARPR
C
      RETURN
      END 
