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. -INC CCOPTIO
  10. -INC SMCHPOI
  11. CHARACTER*8 TYPE
  12.  
  13. CALL LIROBJ('CHPOINT ',MCHPOI,1,IRETOU)
  14. IF(IRETOU.EQ.0) THEN
  15. C 37 2
  16. C On ne trouve pas d'objet de type %m1:8
  17. MOTERR(1:8)='CHPOINT '
  18. CALL ERREUR(37)
  19. RETURN
  20. ENDIF
  21. CALL LICHT(MCHPOI,MPOVAL,TYPE,IGEOM)
  22. IF (MPOVAL.EQ.0) THEN
  23. U=0.D0
  24. CALL ECRREE(U)
  25. RETURN
  26. ENDIF
  27. NC=VPOCHA(/2)
  28. IF(NC.NE.1)THEN
  29. C 180 2
  30. C Il faut spécifier un champ par point avec une seule composante
  31. CALL ERREUR(180)
  32. RETURN
  33. ENDIF
  34. NPT=VPOCHA(/1)
  35. U=0.D0
  36. DO 1 I=1,NPT
  37. U=U+VPOCHA(I,1)
  38. 1 CONTINUE
  39. SEGDES MCHPOI,MPOVAL
  40. CALL ECRREE(U)
  41. RETURN
  42. END
  43.  
  44.  
  45.  

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