Télécharger rmpgbn.eso

Retour à la liste

Numérotation des lignes :

  1. C RMPGBN SOURCE PV 15/10/06 21:15:19 8660
  2. subroutine rmpgbn(ip1,ip2,ity,BREMPL)
  3. C remplace dans le pile de gibiane et si chpoint ou rigidite
  4. C remplace aussi dans la table
  5. C des nom un objet par un autre
  6.  
  7. implicit real*8 (A-H,o-Z)
  8. implicit integer (i-n)
  9.  
  10. character*(*) ity
  11.  
  12. LOGICAL BREMPL
  13.  
  14. -INC CCNOYAU
  15. -INC CCOPTIO
  16.  
  17. IPLAC=JPoob2(imotlu)
  18. if (iplac.le.0) call trbac
  19.  
  20. IF(INOOB2(iplac).NE.'TABLE ') GO TO 100
  21.  
  22. if( (ity.eq.'CHPOINT ' .OR. ity.eq.'RIGIDITE' .OR.
  23. & ity.eq.'LOGIQUE ' .OR. ity.eq.'MCHAML ' .OR.
  24. & ity.eq.'FLOTTANT') .AND.
  25. & BREMPL )then
  26. inoob2(iplac)=ity
  27. C write(6,*) ' on remplace l''objet'
  28. if (iouep2(iplac).ne.ip1) goto 100
  29. IOUEP2(iplac)=IP2
  30. endif
  31.  
  32. C jpoob2(imotlu)=
  33. JPOOB1(IMOTLU)=.TRUE.
  34. if (jpoob4(imotlu).ne.ip1) goto 100
  35. JPOOB4(IMOTLU)=ip2
  36. JTYOBJ(IMOTLU)=ITY
  37. return
  38.  
  39. 100 continue
  40.  
  41. write(6,*) ' tentative ratée de changer un objet esclave'
  42. write(6,*) ' par son object réduit Type:', inoob2(iplac)
  43.  
  44. call erreur(5)
  45. return
  46. end
  47.  
  48.  
  49.  
  50.  
  51.  

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