Esope source files

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