Télécharger ksomt.eso

Retour à la liste

Numérotation des lignes :

  1. C KSOMT SOURCE GOUNAND 06/04/27 21:15:06 5430
  2. SUBROUTINE KSOMT
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C CALCUL DE LA SOMME DES TERMES D UN TABLEAU
  7. C COMPOSANTE PAR COMPOSANTE
  8. C
  9.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. -INC SMCHPOI
  13. CHARACTER*8 TYPE
  14.  
  15. CALL LIROBJ('CHPOINT ',MCHPOI,1,IRETOU)
  16. IF(IRETOU.EQ.0) THEN
  17. C 37 2
  18. C On ne trouve pas d'objet de type %m1:8
  19. MOTERR(1:8)='CHPOINT '
  20. CALL ERREUR(37)
  21. RETURN
  22. ENDIF
  23. CALL LICHT(MCHPOI,MPOVAL,TYPE,IGEOM)
  24. IF (MPOVAL.EQ.0) THEN
  25. U=0.D0
  26. CALL ECRREE(U)
  27. RETURN
  28. ENDIF
  29. NC=VPOCHA(/2)
  30. IF(NC.NE.1)THEN
  31. C 180 2
  32. C Il faut spécifier un champ par point avec une seule composante
  33. CALL ERREUR(180)
  34. RETURN
  35. ENDIF
  36. NPT=VPOCHA(/1)
  37. U=0.D0
  38. DO 1 I=1,NPT
  39. U=U+VPOCHA(I,1)
  40. 1 CONTINUE
  41. SEGDES MCHPOI,MPOVAL
  42. CALL ECRREE(U)
  43. RETURN
  44. END
  45.  
  46.  
  47.  

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