Télécharger la plaquette Cast3M


fr en

Télécharger IOOTF2.INC

Retour à la liste

Numérotation des lignes : 

  1. C              INSERER UN TROU DANS UNE CHAINE DES TROUS                        
  2. C                                                                               
  3. C     IT       INDICE DU TROU : JTR(IT+I),I=1,LT PARCOURT LE TROU               
  4. C     LT       LONGUEUR DU TROU , EN MOTS                                       
  5. C                                                                               
  6. C                 INDICE IT,LG LT ,ZONE MEMOIRE IZ                              
  7. C                                                                               
  8. C*     1.LG DU TROU                                                             
  9. C*     2.INSERTION DEVANT LE TROU DE PROCHAINE ATTRIBUTION                      
  10. C*     3.INTRODUCTION DANS LA CHAINE DES TROUS                                  
  11. C                                                                               
  12. C        REMARQUE : EN RECHERCHE DE PLACE,ON REMONTE LA CHAINE DES TROUS        
  13. C                     (CF OOOMIN)                                               
  14. C                                                                               
  15.       MACRO , MTF2(IZ,KZ,IT,LT)                                                 
  16. C                                                                               
  17.          MTLT1(IT)=-LT                                                          
  18.          MTLT2(IT)=-LT                                                          
  19.          ITS0F2=MZITS0(IZ,KZ)                                                   
  20.          MTITS(IT)=ITS0F2                                                       
  21.          MTITP(IT)=MTITP(ITS0F2)                                                
  22.          MTITS(MTITP(ITS0F2))=IT                                                
  23.          MTITP(ITS0F2)=IT                                                       
  24. C                                                                               
  25.       ENDMACRO                                                                  
  26. C                                                                               
  27. C-----------------------------------------------------------------------        
  28. C                                                                               
  29.  

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