Esope source files

   1 : C G2ORIG    SOURCE    CHAT      05/01/13    00:14:56     5004           
   2 : C
   3 :       SUBROUTINE G2ORIG(IGR1,NBCOL,NBLIG,IORIG,IOP )
   4 : C     **********************************************************************
   5 : C     OBJET G2ORIG : CALCULE L'ORIGINE D'UNE GRILLE
   6 : C
   7 : C     EN ENTREE   :  
   8 : C       IGR1(NBCOL,NBLIG) : TABLEAU D'INDICES DES NOEUDS (LA GRILLE)       
   9 : C       IORIG : ORIGINE SOUHAITE DE LA GRILLE
  10 : C
  11 : C     EN SORTIE   :
  12 : C       IOP  :CODE DONNANT LA TRANSFORMATION A APPLIQUER A 
  13 : C             LA GRILLE POUR QUE IORIG SOIT EN (1,1)
  14 : C             0 = ERREUR IORIG N'EST PAS UN COIN !
  15 : C             1 = IDENTITE
  16 : C             2 = (1,1) DOIT PASSER EN (NBCOL,1)
  17 : C             3 = (1,1) DOIT PASSER EN (NBCOL,NBLIG)
  18 : C             4 = (1,1) DOIT PASSER EN (1,NBLIG)
  19 : C
  20 : C
  21 : C     **********************************************************************
  22 :       IMPLICIT INTEGER(I-N)
  23 :       INTEGER IGR1(*),NBCOL,NBLIG,IORIG
  24 :       INTEGER IOP
  25 : C
  26 : C     ---- CALCUL DE L'ORIGINE ----
  27 : C
  28 :       IF( IGR1(1).EQ.IORIG )THEN
  29 :         IOP = 1
  30 :       ELSE
  31 :       IF( IGR1(NBCOL).EQ.IORIG )THEN
  32 :         IOP = 2
  33 :       ELSE
  34 :       IF( IGR1(NBLIG*NBCOL).EQ.IORIG )THEN
  35 :         IOP = 3
  36 :       ELSE
  37 :       IF( IGR1((NBLIG-1)*NBCOL+1).EQ.IORIG )THEN
  38 :         IOP = 4
  39 :       ELSE
  40 :         IOP = 0
  41 :         GOTO 9999
  42 :       ENDIF
  43 :       ENDIF
  44 :       ENDIF
  45 :       ENDIF
  46 : C
  47 :  9999 END
  48 :  
  49 :