Sources des Includes

*     -INC CTOURN
*
*     COMMON DE VAARIBLES DE TRAVAIL POUR LA FONCTION TOURner,
*     UTILISEE DANS OPERATEUR, DIRECTIVE ET OPTIONS EPONYMES DE Cast3M
 
      REAL*8  XPT1,YPT1,ZPT1,XV1,YV1,ZV1,XV2,YV2,ZV2,XVEC,YVEC,ZVEC
      REAL*8  XP1,YP1,ZP1,ANGLE
      INTEGER ICLE
 
      COMMON / CTOURN / XPT1,YPT1,ZPT1,XV1,YV1,ZV1,XV2,YV2,ZV2,
     &                  XVEC,YVEC,ZVEC,ANGLE,XP1,YP1,ZP1,ICLE
 
      SAVE /CTOURN/