Télécharger resu.eso

Retour à la liste

Numérotation des lignes :

  1. C RESU SOURCE BP208322 16/05/24 21:15:15 8932
  2. SUBROUTINE RESU
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C====================================================================
  6. C
  7. C OPERATEUR 1) CALCULANT LA RESULTANTE D'UN CHAMP PAR POINT
  8. C 2) EFFECTUANT LA SOMMATION D'UN LISTREEL -> cf SOMM
  9. C 3) EFFECTUANT LA SOMMATION D'UN LISTENTI -> cf SOMM
  10. C
  11. C---------------------------
  12. C Phrase d'appel (GIBIANE) :
  13. C---------------------------
  14. C
  15. C 1) CHPO2 = RESU CHPO1 ;
  16. C 2) FLOT1 = RESU LREE1 ; -> cf SOMM
  17. C 3) ENTI1 = RESU LENT1 ; -> cf SOMM
  18. C
  19. C APPELLE : 1) RESULT
  20. C 1) RESULR
  21. C 1) RESULE
  22. C
  23. C CODE JACQUELINE BROCHARD AVRIL 85
  24. C
  25. C=====================================================================
  26. -INC CCOPTIO
  27. C
  28.  
  29. C
  30. C CHPOINT
  31. C
  32. CALL LIROBJ('CHPOINT ',ICHPO1,0,IRETOC)
  33. IF (IERR.NE.0) RETURN
  34. IF(IRETOC.NE.0) THEN
  35. CALL RESULT(ICHPO1,ICHPOR)
  36. IF (IERR.NE.0) RETURN
  37. CALL ECROBJ('CHPOINT ',ICHPOR)
  38. RETURN
  39. ENDIF
  40. C
  41. C LISTREEL
  42. C
  43. CALL LIROBJ('LISTREEL ',MLREE1,0,IRETOR)
  44. IF (IERR.NE.0) RETURN
  45. IF(IRETOR.NE.0) THEN
  46. c CALL RESULR(MLREE1,FLOT1)
  47. c IF (IERR.NE.0) RETURN
  48. c CALL ECRREE(FLOT1)
  49. c fonctionnalité obsolete -> voir SOMM.
  50. c IERPER=1
  51. MOTERR(1:36)='voir les notices de RESU et de SOMM '
  52. CALL ERREUR(1056)
  53. RETURN
  54. ENDIF
  55. C
  56. C LISTENTI
  57. C
  58. CALL LIROBJ('LISTENTI ',MLENT1,0,IRETOE)
  59. IF (IERR.NE.0) RETURN
  60. IF(IRETOE.NE.0) THEN
  61. c CALL RESULE(MLENT1,LENTI1)
  62. c IF (IERR.NE.0) RETURN
  63. c CALL ECRENT(LENTI1)
  64. c fonctionnalité obsolete -> voir SOMM
  65. c IERPER=1
  66. MOTERR(1:36)='voir les notices de RESU et de SOMM '
  67. CALL ERREUR(1056)
  68. RETURN
  69. ENDIF
  70. C
  71. C PAS D'OPERANDE DU TYPE VOULU
  72. C
  73. CALL QUETYP(MOTERR(1:8),0,IRETOU)
  74. IF(IRETOU.NE.0) THEN
  75. CALL ERREUR (39)
  76. ELSE
  77. CALL ERREUR(533)
  78. ENDIF
  79. RETURN
  80. C
  81. END
  82.  
  83.  
  84.  
  85.  
  86.  

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