Sources Esope | Cast3M

ksomt
C KSOMT     SOURCE    CB215821  20/11/25    13:33:10     10792          
      SUBROUTINE KSOMT
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
C      CALCUL DE LA SOMME DES TERMES D UN TABLEAU
C      COMPOSANTE PAR COMPOSANTE
C
 
-INC PPARAM
-INC CCOPTIO
-INC SMCHPOI
      CHARACTER*8 TYPE
 
      CALL LIROBJ('CHPOINT ',MCHPOI,1,IRETOU)
      IF(IRETOU.EQ.0) THEN
C   37 2
C On ne trouve pas d'objet de type %m1:8
         MOTERR(1:8)='CHPOINT '
         CALL ERREUR(37)
         RETURN
      ENDIF
      CALL LICHT(MCHPOI,MPOVAL,TYPE,IGEOM)
      IF (MPOVAL.EQ.0) THEN
         U=0.D0
         CALL ECRREE(U)
         RETURN
      ENDIF
      NC=VPOCHA(/2)
      IF(NC.NE.1)THEN
C  180 2
C Il faut spécifier un champ par point avec une seule composante
         CALL ERREUR(180)
         RETURN
      ENDIF
      NPT=VPOCHA(/1)
      U=0.D0
      DO 1 I=1,NPT
         U=U+VPOCHA(I,1)
 1    CONTINUE
      SEGDES MCHPOI,MPOVAL
      CALL ECRREE(U)
      RETURN
      END