Télécharger la plaquette Cast3M


fr en

Télécharger IOOTRO.INC

Retour à la liste

Numérotation des lignes : 

  1. C                       -----------------------                                 
  2. C                      I MOTS DE CONTROLE TROU I                                
  3. C                       -----------------------                                 
  4. C                                                                               
  5. C        STRUCTURE D'UN TROU D'INDICE  IT  ET DE LONGUEUR  LT MOTS              
  6. C                                                                               
  7. C                LT MULTIPLE DE LSM ,  IT MULTIPLE DE LSM                       
  8. C                                                                               
  9. C      MTLT1     EN NEGATIF : LA LONGUEUR DU TROU EN MOTS                       
  10. C      MTLT2     EN NEGATIF : LA LONGUEUR DU TROU EN MOTS                       
  11. C                                                                               
  12. C      MTITP     INDICE DU TROU PRECEDENT                                       
  13. C      MTITS     INDICE DU TROU SUIVANT                                         
  14. C                MTITP ET MTITS REALISENT UN DOUBLE CHAINAGE CIRCULAIRE         
  15. C                SUR L ENSEMBLE DES TROUS DE LA ZONE , Y COMPRIS LE             
  16. C                TROU DE LONGUEUR NULLE . PRECEDENT ET SUIVANT                  
  17. C                S'ENTENDENT AU SENS DU CHAINAGE ET NON PAS DES                 
  18. C                ADRESSES EN MEMOIRE .                                          
  19. C                                                                               
  20. C                                                                               
  21. C         SCHEMA DES MOTS DE CONTROLE D'UN TROU                                 
  22. C                                                                               
  23. C      4 MOTS DE CONTROLE JTR(IT+1,3,4,LT)                                      
  24. C   .______________._______________. .______________._______________.           
  25. C 1 |         -MTLT1               |3|          MTITP               |           
  26. C   |______________________________| |______________________________|           
  27. C   .______________._______________. .______________._______________.           
  28. C 4 |         MTITS                |L|          -MTLT2              |           
  29. C   |______________________________|T|______________________________|           
  30. C                                                                               
  31. C                                                                               
  32.       MACRO  , MTLT1(IT)=JTR(IT+1)                                              
  33.       MACRO  , MTITP(IT)=JTR(IT+3)                                              
  34.       MACRO  , MTITS(IT)=JTR(IT+4)                                              
  35.       MACRO  , INDICE_TROU_PRECEDENT(IT) = JTR(IT+3)                            
  36.       MACRO  , INDICE_TROU_SUIVANT  (IT) = JTR(IT+4)                            
  37. C                                                                               
  38.       MACRO  , MTLT2(IT)                                                        
  39.         MTLT2 = JTR(IT-MTLT1(IT))                                               
  40.       PSEUDO , LTT                                                              
  41.         JTR(IT-(LTT))=LTT                                                       
  42.       ENDMACRO                                                                  
  43. C                                                                               
  44.       MACRO  , MTLTP(IT)=JTR(IT)                                                
  45. C                                                                               
  46. C****** RAZ DES MOTS DE CONTROLE D'UN TROU                                      
  47. C                                                                               
  48.       MACRO  , MTZERO(IT)                                                       
  49.       PSEUDO , LZERO                                                            
  50.         JTR(IT+1)=LZERO                                                         
  51.         JTR(IT+3)=LZERO                                                         
  52.         JTR(IT+4)=LZERO                                                         
  53.       ENDMACRO                                                                  
  54. C                                                                               
  55. C****** BLOC MEMOIRE EST IL UN TROU ?                                           
  56. C                                                                               
  57.       MACRO , MTROU(IT)=(JZZ(IT+1).LT.0)                                        
  58. C                                                                               
  59. C****** BLOC MEMOIRE A GAUCHE EST IL UN TROU ?                                  
  60. C                                                                               
  61.       MACRO , MTROUG(IT)=(JZZ(IT).LT.0)                                         
  62. C                                                                               
  63. C-----------------------------------------------------------------------        
  64. C                                                                               
  65. C PROGRAMMEUR : MOUGIN                                                          
  66. C       MODIF : 04/11/88    MACROS TROU_PRECEDENT ET TROU_SUIVANT               
  67. C                                                                               
  68.  

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