C TRSYDR    SOURCE    CHAT      05/01/13    03:53:03     5004
      SUBROUTINE TRSYDR(XE,N, PT1,PT2)
C-----------------------------------------------------------------
C     Calcul de la transfomee d'un ensemble de point par rapport
C     a un point (TRSYPT), une droite (TRSYDR) ou un plan (TRSYPL)
C     de symetrie ou par rapport a une translation (TRTRVE)
C
C     Entree   XE(3,N)     Tableau de point
C
C              PT1(3)      point (DISYPT), point de la droite (DISYDR)
C                          normale NORMEE au plan (DISYPL), vecteur de
C                          la translation
C              PT2(3)      vecteur directeur NORME de la droite (DISYDR)
C              D           distance a l'origine (DISYPL)
C
C     Sortie   XXL2M       Carre de la distance minimale
C
C     Appele par CONNE1 NLOCA1
C
C     PP 23/10/92
C-----------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION XE(3,N),PT1(3),PT2(3)
C
      DO 3 I=1,N
        A=0.D0
        DO 1 J=1,3
          A=A+PT2(J)*(XE(J,I)-PT1(J))
 1      CONTINUE
        DO 2 J=1,3
          XE(J,I)=XE(J,I)+2*(PT1(J)-XE(J,I)+A*PT2(J))
 2      CONTINUE
 3    CONTINUE
      RETURN
C-----------------------------------------------------------------
      E N T R Y  TRSYPT(XE,N, PT1)
C
      DO 5 I=1,N
        DO 4 J=1,3
          XE(J,I)=XE(J,I)+2*(PT1(J)-XE(J,I))
 4      CONTINUE
 5    CONTINUE
      RETURN
C-----------------------------------------------------------------
      E N T R Y  TRSYPL(XE,N, PT1,D)
C
      DO 8 I=1,N
        B=D
        DO 6 J=1,3
          B=B+XE(J,I)*PT1(J)
 6      CONTINUE
        B=B*2
        DO 7 J=1,3
          XE(J,I)=XE(J,I)-B*PT1(J)
 7      CONTINUE
 8    CONTINUE
      RETURN
C-----------------------------------------------------------------
      E N T R Y  TRTRVE(XE,N, PT1)
C
      DO 10 I=1,N
        DO 9 J=1,3
          XE(J,I)=XE(J,I)+PT1(J)
 9      CONTINUE
 10   CONTINUE
      RETURN
C-----------------------------------------------------------------
      END