Esope source files

   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 :