Télécharger excite.eso

Retour à la liste

Numérotation des lignes :

  1. C EXCITE SOURCE FANDEUR 11/10/07 21:15:20 7159
  2.  
  3. SUBROUTINE EXCITE
  4.  
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7.  
  8. -INC CCOPTIO
  9.  
  10. LOGICAL LOGBL
  11. CHARACTER*4 MCLE(3)
  12. DATA MCLE /'RAPI','MOYE','LENT'/
  13.  
  14. ityp = 0
  15. mrigid = 0
  16. mchpo1 = 0
  17. mchpo2 = 0
  18. mchpo3 = 0
  19. meleme = 0
  20.  
  21. CALL LIRMOT(MCLE,3,ITYP,0)
  22. IF(IERR.NE.0) RETURN
  23. ITYP=MAX(1,ITYP)
  24. CALL LIROBJ ('RIGIDITE',MRIGID,1,IRETOU)
  25. IF(IERR.NE.0) RETURN
  26. CALL LIROBJ ('CHPOINT ',MCHPO1,1,IRETOU)
  27. IF(IERR.NE.0) RETURN
  28. CALL LIROBJ ('CHPOINT ',MCHPO2,1,IRETOU)
  29. IF(IERR.NE.0) RETURN
  30. CALL LIROBJ ('CHPOINT ',MCHPO3,0,IRETOU)
  31. IF(IERR.NE.0) RETURN
  32. CALL LIROBJ ('MAILLAGE',MELEME,0,IRETOU)
  33. IF(IERR.NE.0) RETURN
  34.  
  35. CALL EXCIT1(MRIGID,MCHPO1,MCHPO2,MCHPO3,MLENTI,LOGBL,MRI2,
  36. & MELEME,ITYP)
  37. IF(IERR.NE.0) RETURN
  38.  
  39. CALL ECRLOG(LOGBL)
  40. CALL ECROBJ('LISTENTI',MLENTI)
  41. CALL ECROBJ('RIGIDITE',MRI2)
  42.  
  43. RETURN
  44. END
  45.  
  46.  
  47.  

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