Esope source files

   1 : C RESU      SOURCE    CHAT      05/01/13    02:54:40     5004           
   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
   9 : C           3) EFFECTUANT LA SOMMATION D'UN LISTENTI
  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 ;
  17 : C       3) ENTI1 = RESU LENT1 ;
  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                                                                               
  31 :       CALL LIROBJ('CHPOINT ',ICHPO1,0,IRETOC)
  32 :       IF (IERR.NE.0) RETURN
  33 :       IF(IRETOC.NE.0) THEN
  33 :         CALL RESULT(ICHPO1,ICHPOR)
  34 :         IF (IERR.NE.0) RETURN
  34 :         CALL ECROBJ('CHPOINT ',ICHPOR)
  35 :         RETURN
  36 :       ENDIF
  37 : C                                                                               
  38 : C LISTREEL
  39 : C                                                                               
  39 :       CALL LIROBJ('LISTREEL ',MLREE1,0,IRETOR)
  40 :       IF (IERR.NE.0) RETURN
  41 :       IF(IRETOR.NE.0) THEN
  41 :         CALL RESULR(MLREE1,FLOT1)
  42 :         IF (IERR.NE.0) RETURN
  42 :         CALL ECRREE(FLOT1)
  43 :         RETURN
  44 :       ENDIF
  45 : C                                                                               
  46 : C LISTENTI
  47 : C                                                                               
  47 :       CALL LIROBJ('LISTENTI ',MLENT1,0,IRETOE)
  48 :       IF (IERR.NE.0) RETURN
  49 :       IF(IRETOE.NE.0) THEN
  49 :         CALL RESULE(MLENT1,LENTI1)
  50 :         IF (IERR.NE.0) RETURN
  50 :         CALL ECRENT(LENTI1)
  51 :         RETURN
  52 :       ENDIF
  53 : C
  54 : C PAS D'OPERANDE DU TYPE VOULU
  55 : C
  55 :       CALL QUETYP(MOTERR(1:8),0,IRETOU)
  56 :       IF(IRETOU.NE.0) THEN                                                      
  56 :         CALL ERREUR (39)
  57 :       ELSE                                                                      
  57 :         CALL ERREUR(533)
  58 :       ENDIF                                                                     
  59 :       RETURN                                                                    
  60 : C
  61 :       END                                                                       
  62 :  
  63 :  
  64 :