1 : C DESOLU SOURCE CHAT 05/01/12 22:43:36 5004 2 : SUBROUTINE DESOLU(IRET) 3 : C 4 : C ===================================================================== 5 : C = DESTRUCTION D'UN OBJET SOLUTION PARTIELLEMENT POUR VIBRA = 6 : C = = 7 : C = CREATION 06/01/86 = 8 : C = PROGRAMMEUR GUILBAUD = 9 : C ===================================================================== 10 : C 11 : IMPLICIT INTEGER(I-N) 12 : -INC CCOPTIO 13 : -INC SMSOLUT 14 : -INC SMELEME 15 : CHARACTER*8 ITMODE,ITSTAT,ITDYNA,ITPSEU 16 : DATA ITMODE/'MODE '/,ITSTAT/'SOLUSTAT'/ 17 : DATA ITDYNA/'DYNAMIQU'/,ITPSEU/'PSEUMODE'/ 18 : MSOLUT=IRET 19 : SEGACT MSOLUT 20 : ITYS=0 21 : IF(ITMODE.NE.ITYSOL) GOTO 101 22 : ITYS=1 23 : GO TO 200 24 : 101 IF(ITYSOL.NE.ITSTAT.AND.ITYSOL.NE.ITPSEU) GOTO 102 25 : ITYS=2 26 : GOTO 200 27 : 102 IF(ITYSOL.NE.ITDYNA) GOTO 103 28 : ITYS=3 29 : GO TO 200 30 : 103 MOTERR(1:8)='SOLUTION' 31 : MOTERR(9:16)=ITYSOL 31 : CALL ERREUR(66) 32 : C L OPERATEUR DETRUIRE NE FONCTIONNE PAS POUR UN OBJET SOLUTION 33 : C COMPORTANT CE SOUS-TYPE 34 : SEGDES MSOLUT 35 : GOTO 1000 36 : 200 NIPO=MSOLIS(/1) 37 : MSOLRE=MSOLIS(1) 38 : IF(MSOLRE.NE.0) SEGSUP MSOLRE 39 : MSOLEN=MSOLIS(2) 40 : IF(MSOLEN.NE.0) SEGSUP MSOLEN 41 : MELEME=MSOLIS(3) 42 : IF(MELEME.NE.0.AND.ITYS.EQ.1) SEGSUP MELEME 43 : MSOLEN=MSOLIS(4) 44 : IF(MSOLEN.NE.0) SEGSUP MSOLEN 45 : DO 230 NIP=5,NIPO 46 : MSOLEN=MSOLIS(NIP) 47 : IF(MSOLEN.NE.0) SEGSUP MSOLEN 48 : 230 CONTINUE 49 : 1000 CONTINUE 50 : SEGSUP MSOLUT 51 : RETURN 52 : END 53 :
© Cast3M 2003 - All rights reserved.
Disclaimer