Numérotation des lignes :

C FLUPR1    SOURCE    AM        09/12/08    21:15:18     6582      SUBROUTINE FLUPR1(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,     $AN,BN,CN,KERRE)CC ROUTINE APPELE DANS CAMECAC_______________________________________________________________________CC SOUS PROGRAMME QUI CALCUL LES MATRICES DE DEFORMATIONC DE FLUAGE PROPRECC_______________________________________________________________________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 A2(10),B2(10,10),C2(10,10) DIMENSION A3(10),B3(10,10),C3(10,10) DIMENSION A4(10),B4(10,10),C4(10,10) DIMENSION A5(10),B5(10,10),C5(10,10) DIMENSION A6(10),B6(10,10),C6(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 ENDIFCC CALCUL DES DEFORMATIONS DE FLUAGEC POUR LES 6 CHAINES DE KELVIN VOIGTCC Chaine 1C NN=1 CALL FLUD(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,$                       A1,B1,C1,NN,NDI)CC   Chaine 2C      NN=2      CALL FLUD(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,     $A2,B2,C2,NN,NDI)CC Chaine 3C NN=3 CALL FLUD(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,$                       A3,B3,C3,NN,NDI)CC   Chaine 4C      NN=4      CALL FLUD(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,     $A4,B4,C4,NN,NDI)CC Chaine 5C NN=5 CALL FLUD(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,$                       A5,B5,C5,NN,NDI)CC   Chaine 6C      NN=6      CALL FLUD(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,     $A6,B6,C6,NN,NDI)CC AmortisseurC CALL FLUA(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,$                       AA,BA,CA,NDI)CC   fluage dessiccationC      CALL FLUDE1(VARF,NVARI,CMAT,NMAT,IFOUR,NSTRS,     $AD,BD,CD,NDI)CCC ASSEMBLAGE DES MATRICESC DO 10 I=1,NSTRS AN(I) = A1(I) + A2(I) + A3(I) + A4(I) + A5(I)$          + A6(I) + AA(I) + AD(I)        DO 10 J=1,NSTRS          BN(I,J) = B1(I,J) + B2(I,J) + B3(I,J)     $+ B4(I,J) + B5(I,J) + B6(I,J)$              + BA(I,J) + BD(I,J)          CN(I,J) = C1(I,J) + C2(I,J) + C3(I,J)     $+ C4(I,J) + C5(I,J) + C6(I,J)$              + CA(I,J) + CD(I,J)   10   CONTINUEC      END

© Cast3M 2003 - Tous droits réservés.
Mentions légales