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             MCOORP.MCOORD
  7.         POINTEUR             MCHPOO.MCHPOI 
  8.         REAL*8               XCOOR((IDIM+1)*NBPTS)                                
  9.       ENDSEGMENT                                                                
  10.       POINTEUR MCOOR1.MCOORD
  11. *                                                                               
  12. *      Segment configuration                                                    
  13. *                                                                               
  14. *     SEGMENT              MCONFI                                               
  15. *       INTEGER              MCONFP                                               
  16. *       INTEGER              MCOOR 
  17. *       INTEGER              MCHPO 
  18. *     ENDSEGMENT                                                                
  19. *     POINTEUR MFCOU.MCONFI   
  20. *
  21. *     COMMON /CCOORD/NBPTS, MCOORD, MCFCOU
  22.       COMMON /CCOORD/NBPTS, MCOORD
  23.       save /ccoord/
  24. *                                                                               
  25. *    LES COORDONNEES SE SUIVENT ET NE SE RESSEMBLENT PAS                        
  26. *    LA DENSITE EST LA (IDIM+1) COORDONNEE                                      
  27. *    D'OU                                                                       
  28. *    X =XCOOR((IP-1)*(IDIM+1)    +1)                                            
  29. *    Y =XCOOR((IP-1)*(IDIM+1)    +2)                                            
  30. *    Z =XCOOR((IP-1)*(IDIM+1)    +3)     SI IL Y A LIEU                         
  31. *                                                                               
  32. *    D =XCOOR(IP*(IDIM+1))                IDIM EST DANS CCOPTIO                 
  33. *                                                                               
  34. *    POUR DES RAISONS D'USAGE IL EST DEMANDE A NOS UTILISATEURS DE              
  35. *    NE JAMAIS DESACTIVE CE SEGMENT                                             
  36. *                                                                               
  37.  

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