Télécharger modpoi.eso

Retour à la liste

Numérotation des lignes :

modpoi
  1. C MODPOI SOURCE FD218221 23/02/13 21:15:11 11591
  2. SUBROUTINE MODPOI (R1,R2,R3,DENS,IPOIN)
  3. ************************************************************************
  4. *
  5. * M O D P O I
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * MODIFICATION DE LA DENSITE ET DES COORDONNEES D'UN POINT
  12. *
  13. *
  14. *
  15. * MODE D'APPEL:
  16. * -------------
  17. *
  18. * CALL MODPOI (R1,R2,R3,DENS,IPOIN)
  19. *
  20. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  21. * -----------
  22. *
  23. * R1 REEL DP (E) 1-ERE COORDONNEE DU POINT.
  24. * R2 REEL DP (E) 2-EME COORDONNEE DU POINT.
  25. * R3 REEL DP (E) 3-EME COORDONNEE DU POINT (QUELCONQUE SI
  26. * PROBLEME BIDIMENSIONNEL).
  27. * DENS REEL DP (E) DENSITE DU POINT
  28. * IPOIN ENTIER (E) NUMERO DU POINT
  29. *
  30. IMPLICIT INTEGER(I-N)
  31. REAL*8 R1,R2,R3,DENS
  32. *
  33. * MODULES UTILISES:
  34. * -----------------
  35.  
  36. -INC PPARAM
  37. -INC CCOPTIO
  38. -INC SMCOORD
  39. *
  40. * COMMENTAIRE
  41. * -----------
  42. *
  43. * ON NE VERIFIE PAS DANS CE SOUS-PROGRAMME QUE LE POINT EXISTE
  44. *
  45. * AUTEUR, DATE DE CREATION:
  46. * -------------------------
  47. *
  48. * PASCAL MANIGOT 23 NOVEMBRE 1987
  49. *
  50. * LANGAGE:
  51. * --------
  52. *
  53. * ESOPE + FORTRAN77
  54. *
  55. ************************************************************************
  56. *
  57. IF (IDIM .LT. 2 .OR. IDIM .GT. 3) THEN
  58. NUMERR = 219
  59. CALL ERREUR (NUMERR)
  60. RETURN
  61. END IF
  62. *
  63. SEGACT,MCOORD*MOD
  64. NBPT1=IPOIN
  65. XCOOR((NBPT1-1)*(IDIM+1)+1) = R1
  66. XCOOR((NBPT1-1)*(IDIM+1)+2) = R2
  67. IF (IDIM .EQ. 3) THEN
  68. XCOOR((NBPT1-1)*(IDIM+1)+3) = R3
  69. END IF
  70. XCOOR(NBPT1*(IDIM+1)) = DENS
  71. *
  72. END
  73.  
  74.  
  75.  
  76.  
  77.  

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