Numérotation des lignes :

C KSUBDV    SOURCE    CHAT      05/01/13    01:09:11     5004      SUBROUTINE KSUBDV(A2,AA,NSUB)      IMPLICIT INTEGER(I-N)      IMPLICIT REAL*8 (A-H,O-Z)CC Calcul des facteurs de forme en 3DC Sp appele par KPROJFC     Subdivision d'un triangle en 4 trianglesC      DIMENSION A1(3,3)      DIMENSION A2(3,3),AA(3,3,4)       NSUB = 4CC     SOMMETSC      DO 10 K=1,3      A1(K,1) = (A2(K,1)+A2(K,2))/2.      A1(K,2) = (A2(K,2)+A2(K,3))/2.      A1(K,3) = (A2(K,3)+A2(K,1))/2. 10   CONTINUECC     4 ELEMENTSC      DO 11 K =1,3      AA(K,1,1) = A2(K,1)      AA(K,2,1) = A1(K,1)      AA(K,3,1) = A1(K,3) 11   CONTINUEC      DO 12 K =1,3      AA(K,1,2) = A2(K,2)      AA(K,2,2) = A1(K,2)      AA(K,3,2) = A1(K,1) 12   CONTINUE       DO 13 K =1,3      AA(K,1,3) = A2(K,3)      AA(K,2,3) = A1(K,3)      AA(K,3,3) = A1(K,2) 13   CONTINUE       DO 14 K =1,3      AA(K,1,4) = A1(K,1)      AA(K,2,4) = A1(K,2)      AA(K,3,4) = A1(K,3) 14   CONTINUE       RETURN      END

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