C PROCON    SOURCE    CHAT      05/01/13    02:29:50     5004           
       FUNCTION PROCON(XX,YY,NSTRS)                                             
      IMPLICIT INTEGER(I-N)
       IMPLICIT REAL*8(A-H,O-Z)                                                 
       DIMENSION XX(*),YY(*)                                                    
       PROCON =0.0                                                              
       DO 75 I=1,NSTRS                                                          
       A = 1.0                                                                  
       IF (I.GT.3) A = 2.0                                                      
       PROCON = PROCON + A*XX(I)*YY(I)                                          
  75   CONTINUE                                                                 
       RETURN                                                                   
       END