C DEFCR     SOURCE    FD218221  26/02/13    21:15:13     12462          
      SUBROUTINE DEFCR(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
     $                  AN,BN,CN,KERRE)
C
C ROUTINE APPELE DANS CAMECAJA
C_______________________________________________________________________
C
C SOUS PROGRAMME QUI CALCUL LES MATRICES DE DEFORMATION 
C  DE FLUAGE  
C
C_______________________________________________________________________
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION VARF(NVARI),CMAT(NMAT)
      DIMENSION AN(NSTRS),BN(NSTRS,NSTRS),CN(NSTRS,NSTRS)
      DIMENSION A1(10),B1(10,10),C1(10,10)
      DIMENSION AA(10),BA(10,10),CA(10,10)
      DIMENSION AD(10),BD(10,10),CD(10,10)

C  TEST SUR LA DIMENSION

      NDI = 10
      IF(NSTRS.GT.NDI) THEN
         PRINT *, ' FLUD - DIMENSION INSUFFISANTE'
         KERRE=99
         RETURN
      ENDIF
C
C CALCUL DES DEFORMATIONS DE FLUAGE
C   POUR LES 3 UNITE DE FLUAGE
C
C   Chaine 1
C
      NN=1
      CALL DEFCR1(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
     $                       A1,B1,C1,NN,NDI)
C
C   Amortisseur
C
      CALL DEFCR2(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
     $                       AA,BA,CA,NDI)
C
C   fluage dessiccation
C
      CALL DEFCR3(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,
     $                       AD,BD,CD,NDI)
C
C
C   ASSEMBLAGE DES MATRICES
C
      DO 10 I=1,NSTRS
        AN(I) = A1(I) + AA(I) + AD(I)
        DO 11 J=1,NSTRS
          BN(I,J) = B1(I,J) + BA(I,J) + BD(I,J)
          CN(I,J) = C1(I,J) + CA(I,J) + CD(I,J)
   11   CONTINUE
   10 CONTINUE
C
      END