Télécharger la plaquette Cast3M


fr en

Télécharger prtass.eso

Retour à la liste

Numérotation des lignes : 

prtass

  1. C PRTASS    SOURCE    PV        22/01/10    21:15:04     11258          
  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,iretou)
  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.  
  53.  

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