Télécharger somm.eso

Retour à la liste

Numérotation des lignes :

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

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