Télécharger permu2.eso

Retour à la liste

Numérotation des lignes :

  1. C PERMU2 SOURCE BP208322 16/06/27 21:16:24 8990
  2. C
  3. SUBROUTINE PERMU2(IALGO,ICOUT,L1,IORDRE,KCOUT)
  4. *
  5. * APPELLEE PAR : ORDONN 'COUT' LISTENTI ...;
  6. * APPELLE : PERM2* ....
  7. *
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8(A-H,O-Z)
  10. -INC CCOPTIO
  11. -INC SMLENTI
  12.  
  13. * MLENTI DEJA ACTIFs DE DIMENSIONs L1**2 et L1
  14. MLENTI=ICOUT
  15. MLENT1=IORDRE
  16.  
  17. * CALCUL DE TOUTES LES COMBINAISONS POSSIBLES
  18. IF(IALGO.EQ.2) THEN
  19.  
  20. CALL PERM21(L1,LECT(1),MLENT1.LECT(1),KCOUT)
  21.  
  22. * "HUNGARIAN METHOD"
  23. ELSEIF(IALGO.LE.1) THEN
  24.  
  25. CALL PERM22(L1,LECT(1),MLENT1.LECT(1),KCOUT)
  26.  
  27. ENDIF
  28.  
  29. RETURN
  30. END
  31.  
  32.  

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