1 : C POUFRM SOURCE CHAT 05/01/13 02:18:51 5004 2 : SUBROUTINE POUFRM(IWRK,KERRE,VECT) 3 : C----------------------------------------------------------------------- 4 : C ROUTINE DE REMISE A JOUR DU VECTEUR DEFINISSANT LE REPERE LOCAL 5 : C POUR LA POUTRE 6 : C----------------------------------------------------------------------- 7 : C ENTREE 8 : C IWRK POINTEUR SUR SEGMENT DE TRAVAIL 9 : C VECT LE VECTEUR A REACTUALISER 10 : C SORTIE 11 : C KERRE INDICE D'ERREUR ( 0 SI TOUT EST OK ) 12 : C----------------------------------------------------------------------- 13 : IMPLICIT INTEGER(I-N) 14 : IMPLICIT REAL*8(A-H,O-Z) 15 : SEGMENT/IWRK/(XDDL(LRE)*D,XE(3,NBNN)*D,WORK(LW)*D) 16 : DIMENSION VECT(*),P(3,3),XX(2),YY(2),ZZ(2) 17 : C 18 : KERRE=0 19 : DO 2 I=1,2 20 : XX(I)=XE(1,I) 21 : YY(I)=XE(2,I) 22 : 2 ZZ(I)=XE(3,I) 23 : C 24 : C CALCUL DE LA MATRICE DE PASSAGE 25 : C 25 : CALL POUPAS(XX,YY,ZZ,VECT,P,KERRE) 26 : IF(KERRE.NE.0) GO TO 999 27 : C 28 : C REACTUALISATION DU VECTEUR 29 : C 29 : CALL POUREA(XX,YY,ZZ,XDDL,WORK,P,VECT,KERRE) 30 : 999 RETURN 31 : END 32 :
© Cast3M 2003 - All rights reserved.
Disclaimer