Télécharger permu1.eso

Retour à la liste

Numérotation des lignes :

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

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