Télécharger la plaquette Cast3M


fr en

Télécharger g2orig.eso

Retour à la liste

Numérotation des lignes : 

g2orig

  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.  
  50.  

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