Télécharger la plaquette Cast3M


fr en

Télécharger resu.eso

Retour à la liste

Numérotation des lignes : 

resu

  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.  
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. C
  30.  
  31. C
  32. C CHPOINT
  33. C
  34.       CALL LIROBJ('CHPOINT ',ICHPO1,0,IRETOC)
  35.       IF (IERR.NE.0) RETURN
  36.       IF(IRETOC.NE.0) THEN
  37.         CALL RESULT(ICHPO1,ICHPOR)
  38.         IF (IERR.NE.0) RETURN
  39.         CALL ECROBJ('CHPOINT ',ICHPOR)
  40.         RETURN
  41.       ENDIF
  42. C
  43. C LISTREEL
  44. C
  45.       CALL LIROBJ('LISTREEL ',MLREE1,0,IRETOR)
  46.       IF (IERR.NE.0) RETURN
  47.       IF(IRETOR.NE.0) THEN
  48. c         CALL RESULR(MLREE1,FLOT1)
  49. c         IF (IERR.NE.0) RETURN
  50. c         CALL ECRREE(FLOT1)
  51. c       fonctionnalité obsolete -> voir SOMM.
  52. c         IERPER=1
  53.         MOTERR(1:36)='voir les notices de RESU et de SOMM ' 
  54.         MOTERR(37:40)=' '
  55.         CALL ERREUR(1056)
  56.         RETURN
  57.       ENDIF
  58. C
  59. C LISTENTI
  60. C
  61.       CALL LIROBJ('LISTENTI ',MLENT1,0,IRETOE)
  62.       IF (IERR.NE.0) RETURN
  63.       IF(IRETOE.NE.0) THEN
  64. c         CALL RESULE(MLENT1,LENTI1)
  65. c         IF (IERR.NE.0) RETURN
  66. c         CALL ECRENT(LENTI1)
  67. c       fonctionnalité obsolete -> voir SOMM
  68. c         IERPER=1
  69.         MOTERR(1:36)='voir les notices de RESU et de SOMM '
  70.         MOTERR(37:40)=' '
  71.         CALL ERREUR(1056)
  72.         RETURN
  73.       ENDIF
  74. C
  75. C PAS D'OPERANDE DU TYPE VOULU
  76. C
  77.       CALL QUETYP(MOTERR(1:8),0,IRETOU)
  78.       IF(IRETOU.NE.0) THEN
  79.         CALL ERREUR (39)
  80.       ELSE
  81.         CALL ERREUR(533)
  82.       ENDIF
  83.       RETURN
  84. C
  85.       END
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  

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