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.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC SMELEME
  11. -INC CCASSIS
  12. SEGMENT ITLAC(0)
  13. SEGINI ITLAC
  14. CALL LIROBJ('MAILLAGE',IOB,0,IRETOU)
  15. IF (IRETOU.EQ.0) GOTO 1
  16. ITLAC(**)=IOB
  17. 1 CONTINUE
  18. if(nbesc.ne.0) then
  19. mestra=imestr
  20. SEGACT MESTRA*MOD
  21. call ooofrc(1)
  22. * lodesl=.true.
  23. call setass(1)
  24. endif
  25. CALL TASSPO(ITLAC,icolac,meleme,0)
  26. C Ménage de icolac
  27. CALL SUPPIL(icolac,-1)
  28. C Normalement, on n'a plus besoin de la ligne suivante
  29. C IF (ITLAC.NE.0) SEGSUP ITLAC
  30. segdes meleme
  31. call ecrobj('MAILLAGE',meleme)
  32. if(nbesc.ne.0) then
  33. mestra=imestr
  34. SEGDES MESTRA
  35. call ooofrc(0)
  36. * lodesl=.false.
  37. call setass(0)
  38. endif
  39. RETURN
  40. END
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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