Esope source files

   1 : C GRACO10   SOURCE    PV        09/11/05    21:15:05     6535           
   2 :       SUBROUTINE GRACO10(ithr)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : -INC SMVECTD                                                                    
   6 : -INC CCOPTIO                                                                    
   7 :       common/cgraco9c/milign,mvect1l,mvect2l,incl,nbthrl
   8 : C  ****  BOUCLE SUR LES POINTS                                                  
   9 : C                                                                               
  10 :       inc=incl
  11 :       mvect1=mvect1l
  12 :       mvect2=mvect2l
  13 :       do 22 i=ithr,inc,nbthrl
  14 :       do 22 nthr=1,nbthrl-1
  15 :        mvect1.vectbb(i)=mvect1.vectbb(i)+mvect1.vectbb(i+nthr*inc)
  16 :   22  continue
  17 :       RETURN                                                                    
  18 :       END       
  19 :                                                                  
  20 :  
  21 :