1 : C ADEVOL SOURCE CHAT 05/01/12 21:18:05 5004 2 : SUBROUTINE ADEVOL(IPO1,IPO2,IRET,IPM) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C =================================================================== 6 : C = OPERATEUR : SOMME DE DEUX COURBES = 7 : C = - X1 ET X2 SONT DE MEME NATURE ET LA SOMME EST = 8 : C = EFFECTUEE SUR LE DOMAINE COMMUN DE DEFINITION = 9 : C = - X1 ET X2 VARIENT DE FACON STRICTEMENT CROISSANTE = 10 : C = - Y1 ET Y2 SONT DE MEME NATURE = 11 : C = APPELE PAR OPERAD = 12 : C = CREATION 30/05/86 = 13 : C = PROGRAMMEUR BENASSIS = 14 : C = = 15 : C = ADAPTATION A L'ADDITION D'OBJETS EVOLUTION COMPLEXES PAR = 16 : C = APPEL A ADEVO PAR F.ROULLIER = 17 : C = = 18 : C = PP 1/12/92 cas ou le KEVOLL ou le MEVOLL sont communs = 19 : C = = 20 : C = REECRITURE DE L'ADDITION D'OBJETS EVOLUTION DE SOUS-TYPE REELS = = 21 : C = MODIFICATION AOUT 97 ELOI = 22 : C =================================================================== 23 : -INC SMEVOLL 24 : -INC CCOPTIO 25 : CHARACTER*8 ITYP1,ITYP2 26 : C 27 : IRET=0 28 : MEVOL1=IPO1 29 : MEVOL2=IPO2 30 : SEGACT MEVOL1,MEVOL2 31 : C 32 : C LES DEUX EVOLUTIONS DOIVENT ETRE DE MEME SOUS-TYPE 33 : C 34 : ITYP1=MEVOL1.ITYEVO 35 : ITYP2=MEVOL2.ITYEVO 36 : IF (ITYP1.NE.ITYP2) THEN 37 : SEGDES MEVOL1,MEVOL2 37 : CALL ERREUR(869) 38 : RETURN 39 : ENDIF 40 : C 41 : C ON TRAITE LE CAS DES OBJETS EVOLUTION DE SOUS-TYPE "COMPLEXE" 42 : C 43 : SEGDES MEVOL1,MEVOL2 44 : IF (ITYP1.EQ.'COMPLEXE') THEN 44 : CALL ADEVO(IPO1,IPO2,IRET,IPM) 45 : ELSE 45 : CALL ADEVOR(IPO1,IPO2,IRET,IPM) 46 : ENDIF 47 : C 48 : RETURN 49 : END 50 : 51 :
© Cast3M 2003 - All rights reserved.
Disclaimer