Sources Esope | Cast3M

poufrm
C POUFRM    SOURCE    CHAT      05/01/13    02:18:51     5004
      SUBROUTINE POUFRM(IWRK,KERRE,VECT)
C-----------------------------------------------------------------------
C  ROUTINE DE REMISE A JOUR DU VECTEUR DEFINISSANT LE REPERE LOCAL
C                          POUR LA POUTRE
C-----------------------------------------------------------------------
C  ENTREE
C          IWRK    POINTEUR SUR SEGMENT DE TRAVAIL
C          VECT    LE VECTEUR A REACTUALISER
C  SORTIE
C          KERRE   INDICE D'ERREUR  ( 0 SI TOUT EST OK )
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      SEGMENT/IWRK/(XDDL(LRE)*D,XE(3,NBNN)*D,WORK(LW)*D)
      DIMENSION VECT(*),P(3,3),XX(2),YY(2),ZZ(2)
C
      KERRE=0
      DO 2 I=1,2
      XX(I)=XE(1,I)
      YY(I)=XE(2,I)
  2   ZZ(I)=XE(3,I)
C
C  CALCUL DE LA MATRICE DE PASSAGE
C
      CALL POUPAS(XX,YY,ZZ,VECT,P,KERRE)
      IF(KERRE.NE.0) GO TO 999
C
C  REACTUALISATION DU VECTEUR
C
      CALL POUREA(XX,YY,ZZ,XDDL,WORK,P,VECT,KERRE)
999   RETURN
      END