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. COMMON /CCOORD/NBPTS
  10. save /ccoord/
  11. *
  12. * LES COORDONNEES SE SUIVENT ET NE SE RESSEMBLENT PAS
  13. * LA DENSITE EST LA (IDIM+1) COORDONNEE
  14. * D'OU
  15. * X =XCOOR((IP-1)*(IDIM+1) +1)
  16. * Y =XCOOR((IP-1)*(IDIM+1) +2)
  17. * Z =XCOOR((IP-1)*(IDIM+1) +3) SI IL Y A LIEU
  18. *
  19. * D =XCOOR(IP*(IDIM+1)) IDIM EST DANS CCOPTIO
  20. *
  21. * POUR DES RAISONS D'USAGE IL EST DEMANDE A NOS UTILISATEURS DE
  22. * NE JAMAIS DESACTIVE CE SEGMENT
  23. *
  24.  

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