Télécharger desolu.eso

Retour à la liste

Numérotation des lignes :

  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
  32. CALL ERREUR(66)
  33. C L OPERATEUR DETRUIRE NE FONCTIONNE PAS POUR UN OBJET SOLUTION
  34. C COMPORTANT CE SOUS-TYPE
  35. SEGDES MSOLUT
  36. GOTO 1000
  37. 200 NIPO=MSOLIS(/1)
  38. MSOLRE=MSOLIS(1)
  39. IF(MSOLRE.NE.0) SEGSUP MSOLRE
  40. MSOLEN=MSOLIS(2)
  41. IF(MSOLEN.NE.0) SEGSUP MSOLEN
  42. MELEME=MSOLIS(3)
  43. IF(MELEME.NE.0.AND.ITYS.EQ.1) SEGSUP MELEME
  44. MSOLEN=MSOLIS(4)
  45. IF(MSOLEN.NE.0) SEGSUP MSOLEN
  46. DO 230 NIP=5,NIPO
  47. MSOLEN=MSOLIS(NIP)
  48. IF(MSOLEN.NE.0) SEGSUP MSOLEN
  49. 230 CONTINUE
  50. 1000 CONTINUE
  51. SEGSUP MSOLUT
  52. RETURN
  53. END
  54.  
  55.  

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