Télécharger modpoi.eso

Retour à la liste

Numérotation des lignes :

  1. C MODPOI SOURCE CHAT 05/01/13 01:50:39 5004
  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. -INC CCOPTIO
  36. -INC SMCOORD
  37. *
  38. * COMMENTAIRE
  39. * -----------
  40. *
  41. * ON NE VERIFIE PAS DANS CE SOUS-PROGRAMME QUE LE POINT EXISTE
  42. *
  43. * AUTEUR, DATE DE CREATION:
  44. * -------------------------
  45. *
  46. * PASCAL MANIGOT 23 NOVEMBRE 1987
  47. *
  48. * LANGAGE:
  49. * --------
  50. *
  51. * ESOPE + FORTRAN77
  52. *
  53. ************************************************************************
  54. *
  55. IF (IDIM .LT. 2 .OR. IDIM .GT. 3) THEN
  56. NUMERR = 219
  57. CALL ERREUR (NUMERR)
  58. RETURN
  59. END IF
  60. *
  61. SEGACT,MCOORD*MOD
  62. NBPTS=IPOIN
  63. XCOOR((NBPTS-1)*(IDIM+1)+1) = R1
  64. XCOOR((NBPTS-1)*(IDIM+1)+2) = R2
  65. IF (IDIM .EQ. 3) THEN
  66. XCOOR((NBPTS-1)*(IDIM+1)+3) = R3
  67. END IF
  68. XCOOR(NBPTS*(IDIM+1)) = DENS
  69. *
  70. END
  71.  
  72.  
  73.  

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