* -INC SMCOORD
*
* COORDONNEES DES POINTS ( POINTEUR DANS CCOPTIO )
*
SEGMENT MCOORD
REAL*8 XCOOR((IDIM+1)*NBPTS)
ENDSEGMENT
*
* 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
*
* POUR DES RAISONS D'USAGE IL EST DEMANDE A NOS UTILISATEURS DE
* NE JAMAIS DESACTIVE CE SEGMENT
*
© Cast3M 2003 - All rights reserved.
Disclaimer