Télécharger g2orig.eso

Retour à la liste

Numérotation des lignes :

  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