C GRACO10   SOURCE    PV        09/11/05    21:15:05     6535           
      SUBROUTINE GRACO10(ithr)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
-INC SMVECTD                                                                    
-INC CCOPTIO                                                                    
      common/cgraco9c/milign,mvect1l,mvect2l,incl,nbthrl
C  ****  BOUCLE SUR LES POINTS                                                  
C                                                                               
      inc=incl
      mvect1=mvect1l
      mvect2=mvect2l
      do 22 i=ithr,inc,nbthrl
      do 22 nthr=1,nbthrl-1
       mvect1.vectbb(i)=mvect1.vectbb(i)+mvect1.vectbb(i+nthr*inc)
  22  continue
      RETURN                                                                    
      END