Télécharger la plaquette Cast3M


fr en

Télécharger tbtrli.eso

Retour à la liste

Numérotation des lignes : 

tbtrli

  1. C TBTRLI    SOURCE    CHAT      05/01/13    03:33:47     5004
  2. c subroutine utilisee dans tableau
  3. ***************************************************
  4. *
  5. *  TRIER LES LIGNES D'UN TABLEAU PAR RAPPORT
  6. *    A LA COLONNE ICOL
  7. *
  8. ***************************************************
  9.         SUBROUTINE TBTRLI ( ICOL, TNUM, TABTR, ITABX,ITABY )
  10.  
  11. *
  12. *  DEFINITION DES VARIABLES
  13. *
  14.       IMPLICIT INTEGER(I-N)
  15. -INC TMNTAB
  16.  
  17.         INTEGER         ICOL,ITABX,ITABY
  18.         REAL*8          RA,RB
  19.         CHARACTER*30    CA,CB
  20.         INTEGER         N,J
  21.         INTEGER         TNUM
  22.         LOGICAL ZTEST
  23. *
  24.         DO 1690 N=3 , ITABY, 1
  25.           CA = TABTR.ELEM (ICOL,N)
  26.           DO 1695 J= (N-1) , 2, -1
  27.             CB = TABTR.ELEM (ICOL,J)
  28.             IF  (ZTEST (CA,CB,TNUM)) CALL TBIVLI (J,J+1,TABTR,ITABX)
  29. 1695      CONTINUE
  30. 1690    CONTINUE
  31. *
  32.         END
  33.  
  34.  
  35.  

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