Télécharger la plaquette Cast3M


fr en

Télécharger mektab.eso

Retour à la liste

Numérotation des lignes : 

mektab

  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.  
  9.       CALL ACME(MTABLE,'INEFMD',INEFM0)
  10.  
  11.       IF(INEFMD.NE.INEFM0)THEN
  12.        WRITE(MTAB,FMT='(A3,I1)')'TAB',INEFMD
  13.        write(6,*)'MTAB=',MTAB
  14.        TYPE=' '
  15.        CALL ACMO(MTABLE,MTAB,TYPE,MTABD)
  16.         IF(TYPE.NE.'TABLE   ')THEN
  17.          TYPE='MAILLAGE'
  18.          CALL ACMO(MTABLE,'QUAF',TYPE,MELEME)
  19.          IF(MELEME.EQ.0)RETURN
  20.          MACRO=0
  21.          IF(INEFMD.EQ.2)MACRO=1
  22.          MTABI=0
  23.          NOMDOM=' '
  24.          TOLER=0.D0
  25.          CALL KKDOM(MELEME,MACRO,TOLER,NOMDOM,MTABI,MTABD,INEFMD)
  26.          CALL ECMO(MTABLE,MTAB,'TABLE   ',MTABD)
  27.          SEGDES MELEME
  28.          CALL ECMO(MTABLE,MTAB,'TABLE',MTABD)
  29.         ENDIF
  30.        CALL LEKTAB(MTABD,NOMI,IPOINT)
  31.       ELSE
  32.        CALL LEKTAB(MTABLE,NOMI,IPOINT)
  33.       ENDIF
  34.       RETURN
  35.       END
  36.  
  37.  
  38.  

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