Sources des Includes

*        -INC SMCOORD
*
*      COORDONNEES DES POINTS ( POINTEUR DANS CCOORD )
*
      SEGMENT              MCOORD
        POINTEUR             MROTA.MROTAT
        REAL*8               XCOOR((IDIM+1)*NBPTS)
      ENDSEGMENT
      POINTEUR MCOOR1.MCOORD
*
*      Segment rotations si il y a des coques/poutres
*
      SEGMENT              MROTAT
        REAL*8               XROTA(IDIMR,NBPTS)
      ENDSEGMENT
      POINTEUR MROTA1.MROTAT
*
      COMMON /CCOORD/ NBPTS, MCOORD, IRENUM
      INTEGER NBPTS,IRENUM
      save /ccoord/
*
*    LES COORDONNEES SE SUIVENT ET NE SE RESSEMBLENT PAS
*    LA DENSITE EST LA (IDIM+1) COORDONNEE
*    D'OU
*    X =XCOOR((IP-1)*(IDIM+1)    +1)
*    Y =XCOOR((IP-1)*(IDIM+1)    +2)
*    Z =XCOOR((IP-1)*(IDIM+1)    +3)     SI IL Y A LIEU
*
*    D =XCOOR(IP*(IDIM+1))                IDIM EST DANS CCOPTIO
*
*    (ENTIER)   NBPTS    Nombre de points
*    (ENTIER)   IRENUM   Compteur de renumerotation des noeuds
*