Télécharger la plaquette Cast3M


fr en

Télécharger somm.eso

Retour à la liste

Numérotation des lignes : 

somm

  1. C SOMM      SOURCE    BP208322  18/12/14    21:15:13     10040          
  2.       SUBROUTINE SOMM
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C=======================================================================
  7. c     SOMME UNE LISTE DE VALEURS
  8. c     bp, 2017 : ajout option 'CUMUL' 
  9. C=======================================================================
  10. C
  11. -INC PPARAM
  12. -INC CCOPTIO
  13.  
  14.       PARAMETER (NMOT=1)
  15.       CHARACTER*4 MOTCLE(NMOT)
  16.       DATA MOTCLE/'CUMU'/
  17.  
  18. C
  19. C EVOLUTION : ON DIT A L UTILISATEUR QUE LA FONCTIONNALITE EST OBSOLETE 
  20.       CALL LIROBJ('EVOLUTIO',IPEVO,0,IRET)
  21.       IF(IERR.NE.0) RETURN
  22.       IF(IRET.NE.0) THEN
  23. c       fonctionnalité obsolete -> voir INTG
  24.         MOTERR(1:36)='voir les notices de SOMM et de INTG ' 
  25.         MOTERR(37:40)=' '
  26.         CALL ERREUR(1056)
  27.         RETURN
  28.       ENDIF
  29. C
  30. C OPTION CUMUL ?
  31. C
  32.       CALL LIRMOT(MOTCLE,NMOT,IMOT,0)      
  33. C
  34. C LISTREEL
  35. C
  36.       CALL LIROBJ('LISTREEL ',MLREE1,0,IRETOR)
  37.       IF (IERR.NE.0) RETURN
  38.       IF(IRETOR.NE.0) THEN
  39.         IF(IMOT.EQ.1) THEN
  40.           CALL CUMULR(MLREE1,MLREE2)
  41.           IF (IERR.NE.0) RETURN
  42.           CALL ECROBJ('LISTREEL',MLREE2)
  43.         ELSE
  44.           CALL RESULR(MLREE1,FLOT1)
  45.           IF (IERR.NE.0) RETURN
  46.           CALL ECRREE(FLOT1)
  47.         ENDIF
  48.         RETURN
  49.       ENDIF
  50. C
  51. C LISTENTI
  52. C
  53.       CALL LIROBJ('LISTENTI ',MLENT1,0,IRETOE)
  54.       IF (IERR.NE.0) RETURN
  55.       IF(IRETOE.NE.0) THEN
  56.         IF(IMOT.EQ.1) THEN
  57.           CALL CUMULE(MLENT1,MLENT2)
  58.           IF (IERR.NE.0) RETURN
  59.           CALL ECROBJ('LISTENTI',MLENT2)
  60.         ELSE
  61.           CALL RESULE(MLENT1,LENTI1)
  62.           IF (IERR.NE.0) RETURN
  63.           CALL ECRENT(LENTI1)
  64.         ENDIF
  65.         RETURN
  66.       ENDIF
  67. C
  68. C PAS D'OPERANDE DU TYPE VOULU
  69. C
  70.       CALL QUETYP(MOTERR(1:8),0,IRETOU)
  71.       IF(IRETOU.NE.0) THEN
  72.         CALL ERREUR (39)
  73.       ELSE
  74.         CALL ERREUR(533)
  75.       ENDIF
  76.       RETURN
  77.  
  78. C
  79.       RETURN
  80.       END
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  

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