Télécharger g2nbkk.eso

Retour à la liste

Numérotation des lignes :

  1. C G2NBKK SOURCE CHAT 06/03/29 21:21:55 5360
  2. C
  3. C
  4. SUBROUTINE G2NBKK( NB1,NB2,NB3,NB4,K1,K2,K3,K4,iarr)
  5. C **********************************************************************
  6. C OBJET G2NBKK : CALCUL LES COINS (LES KI) A SUPPRIMER D'UNE GRILLE 2D
  7. C
  8. C EN ENTREE :
  9. C NB1, NB2, NB3, NB4 : NOMBRE D'ELEMENTS SUR CHACUN DES 4 COTES.
  10. C
  11. C EN SORTIE :
  12. C K1, K2, K3, K4 : NOMBRE D'ELEMENTS A ENLEVER DANS CHAQUE COIN
  13. C D'UNE GRILLE
  14. C iarr : CODE D'ERREUR = -1 SI K1,K2,K3,K4 N'EXISTENT PAS.
  15. C **********************************************************************
  16. IMPLICIT INTEGER(I-N)
  17. INTEGER NB1,NB2,NB3,NB4
  18. INTEGER K1,K2,K3,K4,iarr
  19. C
  20. IF( MOD(NB1+NB2+NB3+NB4,2).NE.0)THEN
  21. iarr = -1
  22. GOTO 999
  23. ENDIF
  24. iarr = 0
  25. C
  26. C --- PREMIER SYSTEME ---
  27. C
  28. K1 = (NB3-NB1+NB4-NB2) / 2
  29. K2 = (-NB3+NB1+NB4-NB2) / 2
  30. K3 = 0
  31. K4 = 0
  32. IF(( K1.GE.0 ).AND.( K2.GE.0 ))GOTO 999
  33. C
  34. C --- 2IEME SYSTEME ---
  35. C
  36. K1 = (NB3-NB1+NB4-NB2) / 2
  37. K2 = 0
  38. K3 = 0
  39. K4 = (NB3-NB1-NB4+NB2) / 2
  40. IF(( K1.GE.0 ).AND.( K4.GE.0 ))GOTO 999
  41. C
  42. C --- 3IEME SYSTEME ---
  43. C
  44. K1 = 0
  45. K2 = (-NB3+NB1+NB4-NB2) / 2
  46. K3 = (-NB3+NB1-NB4+NB2) / 2
  47. K4 = 0
  48. IF(( K2.GE.0 ).AND.( K3.GE.0 ))GOTO 999
  49. C
  50. C --- 4IEME SYSTEME ---
  51. C
  52. K1 = 0
  53. K2 = 0
  54. K3 = (-NB3+NB1-NB4+NB2) / 2
  55. K4 = (NB3-NB1-NB4+NB2) / 2
  56. IF(( K3.GE.0 ).AND.( K4.GE.0 ))GOTO 999
  57.  
  58. 999 END
  59.  
  60.  
  61.  
  62.  

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