1 : C ENSTRI SOURCE CHAT 05/01/12 23:40:26 5004 2 : SUBROUTINE ENSTRI(ITAB1,NB1) 3 : C ***************************************************** 4 : C OBJET : TRI UN TABLEAU D'ENTIER DANS L'ORDRE CROISSANT 5 : C EN ENTREE: 6 : C ITAB1 : TABLEAU A ORDONNER 7 : C NB1 : CARDINAL DE NB1 8 : C EN SORTIE : 9 : C IATB1 : TRIE 10 : C ****************************************************** 11 : IMPLICIT INTEGER(I-N) 12 : INTEGER ITAB1(*), NB1 13 : C 13 : CALL KNUTA(NB1,ITAB1) 14 : END 15 : 16 :
© Cast3M 2003 - All rights reserved.
Disclaimer