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.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18.  
  19. IPLAC=JPoob2(imotlu)
  20. if (iplac.le.0) call trbac
  21.  
  22. IF(INOOB2(iplac).NE.'TABLE ') GO TO 100
  23.  
  24. if( (ity.eq.'CHPOINT ' .OR. ity.eq.'RIGIDITE' .OR.
  25. & ity.eq.'LOGIQUE ' .OR. ity.eq.'MCHAML ' .OR.
  26. & ity.eq.'FLOTTANT') .AND.
  27. & BREMPL )then
  28. inoob2(iplac)=ity
  29. C write(6,*) ' on remplace l''objet'
  30. if (iouep2(iplac).ne.ip1) goto 100
  31. IOUEP2(iplac)=IP2
  32. endif
  33.  
  34. C jpoob2(imotlu)=
  35. JPOOB1(IMOTLU)=.TRUE.
  36. if (jpoob4(imotlu).ne.ip1) goto 100
  37. JPOOB4(IMOTLU)=ip2
  38. JTYOBJ(IMOTLU)=ITY
  39. return
  40.  
  41. 100 continue
  42.  
  43. write(6,*) ' tentative ratée de changer un objet esclave'
  44. write(6,*) ' par son object réduit Type:', inoob2(iplac)
  45.  
  46. call erreur(5)
  47. return
  48. end
  49.  
  50.  
  51.  
  52.  
  53.  

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