C RESU SOURCE BP208322 18/12/14 21:15:12 10040 SUBROUTINE RESU IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) C==================================================================== C C OPERATEUR 1) CALCULANT LA RESULTANTE D'UN CHAMP PAR POINT C 2) EFFECTUANT LA SOMMATION D'UN LISTREEL -> cf SOMM C 3) EFFECTUANT LA SOMMATION D'UN LISTENTI -> cf SOMM C C--------------------------- C Phrase d'appel (GIBIANE) : C--------------------------- C C 1) CHPO2 = RESU CHPO1 ; C 2) FLOT1 = RESU LREE1 ; -> cf SOMM C 3) ENTI1 = RESU LENT1 ; -> cf SOMM C C APPELLE : 1) RESULT C 1) RESULR C 1) RESULE C C CODE JACQUELINE BROCHARD AVRIL 85 C C===================================================================== -INC PPARAM -INC CCOPTIO C C C CHPOINT C CALL LIROBJ('CHPOINT ',ICHPO1,0,IRETOC) IF (IERR.NE.0) RETURN IF(IRETOC.NE.0) THEN CALL RESULT(ICHPO1,ICHPOR) IF (IERR.NE.0) RETURN CALL ECROBJ('CHPOINT ',ICHPOR) RETURN ENDIF C C LISTREEL C CALL LIROBJ('LISTREEL ',MLREE1,0,IRETOR) IF (IERR.NE.0) RETURN IF(IRETOR.NE.0) THEN c CALL RESULR(MLREE1,FLOT1) c IF (IERR.NE.0) RETURN c CALL ECRREE(FLOT1) c fonctionnalité obsolete -> voir SOMM. c IERPER=1 MOTERR(1:36)='voir les notices de RESU et de SOMM ' MOTERR(37:40)=' ' CALL ERREUR(1056) RETURN ENDIF C C LISTENTI C CALL LIROBJ('LISTENTI ',MLENT1,0,IRETOE) IF (IERR.NE.0) RETURN IF(IRETOE.NE.0) THEN c CALL RESULE(MLENT1,LENTI1) c IF (IERR.NE.0) RETURN c CALL ECRENT(LENTI1) c fonctionnalité obsolete -> voir SOMM c IERPER=1 MOTERR(1:36)='voir les notices de RESU et de SOMM ' MOTERR(37:40)=' ' CALL ERREUR(1056) RETURN ENDIF C C PAS D'OPERANDE DU TYPE VOULU C CALL QUETYP(MOTERR(1:8),0,IRETOU) IF(IRETOU.NE.0) THEN CALL ERREUR (39) ELSE CALL ERREUR(533) ENDIF RETURN C END