Télécharger la plaquette Cast3M


fr en

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.         POINTEUR             MROTA.MROTAT 
  7.         REAL*8               XCOOR((IDIM+1)*NBPTS)                                
  8.       ENDSEGMENT                                                                
  9.       POINTEUR MCOOR1.MCOORD
  10. *                                                                               
  11. *      Segment rotations si il y a des coques/poutres                           
  12. *                                                                               
  13.       SEGMENT              MROTAT                                               
  14.         REAL*8               XROTA(IDIM*NBPTS)                                
  15.       ENDSEGMENT                                                                
  16.       POINTEUR MROTA1.MROTAT
  17. *
  18.       COMMON /CCOORD/NBPTS, MCOORD  
  19.       save /ccoord/
  20. *                                                                               
  21. *    LES COORDONNEES SE SUIVENT ET NE SE RESSEMBLENT PAS                        
  22. *    LA DENSITE EST LA (IDIM+1) COORDONNEE                                      
  23. *    D'OU                                                                       
  24. *    X =XCOOR((IP-1)*(IDIM+1)    +1)                                            
  25. *    Y =XCOOR((IP-1)*(IDIM+1)    +2)                                            
  26. *    Z =XCOOR((IP-1)*(IDIM+1)    +3)     SI IL Y A LIEU                         
  27. *                                                                               
  28. *    D =XCOOR(IP*(IDIM+1))                IDIM EST DANS CCOPTIO                 
  29. *                                                                               
  30. *    POUR DES RAISONS D'USAGE IL EST DEMANDE A NOS UTILISATEURS DE              
  31. *    NE JAMAIS DESACTIVE CE SEGMENT                                             
  32. *                                                                               
  33.  

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