Sources Esope | Cast3M

g2nbkk
C G2NBKK    SOURCE    CHAT      06/03/29    21:21:55     5360
C
C
      SUBROUTINE G2NBKK( NB1,NB2,NB3,NB4,K1,K2,K3,K4,iarr)
C     **********************************************************************
C     OBJET G2NBKK : CALCUL LES COINS (LES KI) A SUPPRIMER D'UNE GRILLE 2D
C
C     EN ENTREE   :
C       NB1, NB2, NB3, NB4 : NOMBRE D'ELEMENTS SUR CHACUN DES 4 COTES.
C
C     EN SORTIE   :
C       K1, K2, K3, K4 : NOMBRE D'ELEMENTS A ENLEVER DANS CHAQUE COIN
C                        D'UNE GRILLE
C       iarr : CODE D'ERREUR = -1 SI K1,K2,K3,K4 N'EXISTENT PAS.
C     **********************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER NB1,NB2,NB3,NB4
      INTEGER K1,K2,K3,K4,iarr
C
      IF( MOD(NB1+NB2+NB3+NB4,2).NE.0)THEN
        iarr = -1
        GOTO 999
      ENDIF
      iarr = 0
C
C     --- PREMIER SYSTEME ---
C
      K1 = (NB3-NB1+NB4-NB2) / 2
      K2 = (-NB3+NB1+NB4-NB2) / 2
      K3 = 0
      K4 = 0
      IF(( K1.GE.0 ).AND.( K2.GE.0 ))GOTO 999
C
C     --- 2IEME SYSTEME ---
C
      K1 = (NB3-NB1+NB4-NB2) / 2
      K2 = 0
      K3 = 0
      K4 = (NB3-NB1-NB4+NB2) / 2
      IF(( K1.GE.0 ).AND.( K4.GE.0 ))GOTO 999
C
C     --- 3IEME SYSTEME ---
C
      K1 = 0
      K2 = (-NB3+NB1+NB4-NB2) / 2
      K3 = (-NB3+NB1-NB4+NB2) / 2
      K4 = 0
      IF(( K2.GE.0 ).AND.( K3.GE.0 ))GOTO 999
C
C     --- 4IEME SYSTEME ---
C
      K1 = 0
      K2 = 0
      K3 = (-NB3+NB1-NB4+NB2) / 2
      K4 = (NB3-NB1-NB4+NB2) / 2
      IF(( K3.GE.0 ).AND.( K4.GE.0 ))GOTO 999
 
  999 END