Télécharger SMCOORD.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMCOORD
  2. *
  3. * COORDONNEES DES POINTS ( POINTEUR DANS CCOPTIO )
  4. *
  5. SEGMENT MCOORD
  6. REAL*8 XCOOR((IDIM+1)*NBPTS)
  7. ENDSEGMENT
  8. *
  9. * LES COORDONNEES SE SUIVENT ET NE SE RESSEMBLENT PAS
  10. * LA DENSITE EST LA (IDIM+1) COORDONNEE
  11. * D'OU
  12. * X =XCOOR((IP-1)*(IDIM+1) +1)
  13. * Y =XCOOR((IP-1)*(IDIM+1) +2)
  14. * Z =XCOOR((IP-1)*(IDIM+1) +3) SI IL Y A LIEU
  15. *
  16. * D =XCOOR(IP*(IDIM+1)) IDIM EST DANS CCOPTIO
  17. *
  18. * POUR DES RAISONS D'USAGE IL EST DEMANDE A NOS UTILISATEURS DE
  19. * NE JAMAIS DESACTIVE CE SEGMENT
  20. *
  21.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales