Esope source files

   1 : C MEKTAB    SOURCE    CHAT      05/01/13    01:41:50     5004           
   2 :       SUBROUTINE MEKTAB(MTABLE,INEFMD,NOMI,IPOINT)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       CHARACTER*(*) NOMI
   6 :       CHARACTER*8 MTAB,TYPE,NOMDOM
   7 : -INC SMELEME
   8 : 
   8 :       CALL ACME(MTABLE,'INEFMD',INEFM0)
   9 : 
  10 :       IF(INEFMD.NE.INEFM0)THEN
  11 :        WRITE(MTAB,FMT='(A3,I1)')'TAB',INEFMD
  12 :        write(6,*)'MTAB=',MTAB
  13 :        TYPE=' '
  13 :        CALL ACMO(MTABLE,MTAB,TYPE,MTABD)
  14 :         IF(TYPE.NE.'TABLE   ')THEN
  15 :          TYPE='MAILLAGE'
  15 :          CALL ACMO(MTABLE,'QUAF',TYPE,MELEME)
  16 :          IF(MELEME.EQ.0)RETURN
  17 :          MACRO=0
  18 :          IF(INEFMD.EQ.2)MACRO=1
  19 :          MTABI=0
  20 :          NOMDOM=' '
  21 :          TOLER=0.D0
  21 :          CALL KKDOM(MELEME,MACRO,TOLER,NOMDOM,MTABI,MTABD,INEFMD)
  21 :          CALL ECMO(MTABLE,MTAB,'TABLE   ',MTABD)
  22 :          SEGDES MELEME
  22 :          CALL ECMO(MTABLE,MTAB,'TABLE',MTABD)
  23 :         ENDIF
  23 :        CALL LEKTAB(MTABD,NOMI,IPOINT)
  24 :       ELSE
  24 :        CALL LEKTAB(MTABLE,NOMI,IPOINT)
  25 :       ENDIF
  26 :       RETURN
  27 :       END
  28 :  
  29 :