Télécharger prtass.eso

Retour à la liste

Numérotation des lignes :

  1. C PRTASS SOURCE PV 12/12/06 21:15:19 7594
  2. C INTERFACE AVANT L'APPEL A TASSPO POUR EVENTUELLEMENT METTRE
  3. C QUELQUE CHOSE EN TETE DU SEGMENT ITLAC
  4. C
  5. SUBROUTINE PRTASS
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCOPTIO
  8. -INC SMELEME
  9. -INC CCASSIS
  10. SEGMENT ITLAC(0)
  11. SEGINI ITLAC
  12. CALL LIROBJ('MAILLAGE',IOB,0,IRETOU)
  13. IF (IRETOU.EQ.0) GOTO 1
  14. ITLAC(**)=IOB
  15. 1 CONTINUE
  16. if(nbesc.ne.0) then
  17. mestra=imestr
  18. SEGACT MESTRA*MOD
  19. call ooofrc(1)
  20. * lodesl=.true.
  21. call setass(1)
  22. endif
  23. CALL TASSPO(ITLAC,icolac,meleme,0)
  24. C Ménage de icolac
  25. CALL SUPPIL(icolac,-1)
  26. C Normalement, on n'a plus besoin de la ligne suivante
  27. C IF (ITLAC.NE.0) SEGSUP ITLAC
  28. segdes meleme
  29. call ecrobj('MAILLAGE',meleme)
  30. if(nbesc.ne.0) then
  31. mestra=imestr
  32. SEGDES MESTRA
  33. call ooofrc(0)
  34. * lodesl=.false.
  35. call setass(0)
  36. endif
  37. RETURN
  38. END
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  

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