Télécharger permu1.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  11. -INC SMLREEL
  12. -INC SMLENTI
  13.  
  14. * MLENTI DEJA ACTIFs DE DIMENSIONs L1**2 et L1
  15. MLREEL=ICOUT
  16. MLENT1=IORDRE
  17.  
  18. * CALCUL DE TOUTES LES COMBINAISONS POSSIBLES
  19. IF(IALGO.EQ.2) THEN
  20.  
  21. CALL PERM11(L1,PROG(1),MLENT1.LECT(1),XCOUT)
  22.  
  23. * "HUNGARIAN METHOD"
  24. ELSEIF(IALGO.LE.1) THEN
  25.  
  26. CALL PERM12(L1,PROG(1),MLENT1.LECT(1),XCOUT)
  27.  
  28. ENDIF
  29.  
  30. RETURN
  31. END
  32.  
  33.  

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