Télécharger resu.eso

Retour à la liste

Numérotation des lignes :

  1. C RESU SOURCE BP208322 18/12/14 21:15:12 10040
  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. MOTERR(37:40)=' '
  53. CALL ERREUR(1056)
  54. RETURN
  55. ENDIF
  56. C
  57. C LISTENTI
  58. C
  59. CALL LIROBJ('LISTENTI ',MLENT1,0,IRETOE)
  60. IF (IERR.NE.0) RETURN
  61. IF(IRETOE.NE.0) THEN
  62. c CALL RESULE(MLENT1,LENTI1)
  63. c IF (IERR.NE.0) RETURN
  64. c CALL ECRENT(LENTI1)
  65. c fonctionnalité obsolete -> voir SOMM
  66. c IERPER=1
  67. MOTERR(1:36)='voir les notices de RESU et de SOMM '
  68. MOTERR(37:40)=' '
  69. CALL ERREUR(1056)
  70. RETURN
  71. ENDIF
  72. C
  73. C PAS D'OPERANDE DU TYPE VOULU
  74. C
  75. CALL QUETYP(MOTERR(1:8),0,IRETOU)
  76. IF(IRETOU.NE.0) THEN
  77. CALL ERREUR (39)
  78. ELSE
  79. CALL ERREUR(533)
  80. ENDIF
  81. RETURN
  82. C
  83. END
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  

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