Esope source files

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