Numérotation des lignes :

C G2NBKK    SOURCE    CHAT      06/03/29    21:21:55     5360CC      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 2DCC     EN ENTREE   :C       NB1, NB2, NB3, NB4 : NOMBRE D'ELEMENTS SUR CHACUN DES 4 COTES.CC     EN SORTIE   :C       K1, K2, K3, K4 : NOMBRE D'ELEMENTS A ENLEVER DANS CHAQUE COINC                        D'UNE GRILLEC       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,iarrC      IF( MOD(NB1+NB2+NB3+NB4,2).NE.0)THEN        iarr = -1        GOTO 999      ENDIF      iarr = 0CC     --- 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 999CC     --- 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 999CC     --- 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 999CC     --- 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

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