Télécharger mektab.eso

Retour à la liste

Numérotation des lignes :

  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