Télécharger litdmd.eso

Retour à la liste

Numérotation des lignes :

  1. C LITDMD SOURCE CHAT 11/03/16 21:27:03 6902
  2. SUBROUTINE LITDMD(MMODEL,MTABD,IRET)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C*************************************************************************
  6. C
  7. C ce SP lit une table DOMAINE ou un modele NAVIER_STOKES
  8. C ou DARCY ou EULER
  9. C Si OK IRET=1 MMODEL ou MTABD ne 0
  10. C Sinon IRET=0 MMODEL=0 et MTABD=0
  11. C
  12. C*************************************************************************
  13. CHARACTER*8 TYPC,TYPE,TYPS
  14. -INC CCOPTIO
  15. -INC SMMODEL
  16. C***
  17. MTABD=0
  18. MMODEL=0
  19.  
  20. CALL QUETYP(TYPE,0,IRET)
  21.  
  22. IF(IRET.EQ.0)GO TO 99
  23.  
  24. IF(TYPE.EQ.'MMODEL')THEN
  25. CALL LIROBJ('MMODEL',MMODEL,0,IRET)
  26. SEGACT MMODEL
  27. N1=KMODEL(/1)
  28. DO 1 L=1,N1
  29. IMODEL=KMODEL(L)
  30. SEGACT IMODEL
  31. IF(FORMOD(1).NE.'NAVIER_STOKES'.AND.FORMOD(1).NE.'DARCY'.AND.
  32. & FORMOD(1).NE.'EULER')GO TO 99
  33. SEGDES IMODEL
  34. 1 CONTINUE
  35. SEGDES MMODEL
  36. IRET=1
  37. RETURN
  38. ELSEIF(TYPE.EQ.'TABLE')THEN
  39. CALL LIROBJ(TYPE,MTABD,0,IRET)
  40. TYPC=' '
  41. CALL ACMO(MTABD,'SOUSTYPE',TYPC,IRET)
  42. IF(TYPC.EQ.'MOT ')THEN
  43. CALL ACMM(MTABD,'SOUSTYPE',TYPS)
  44. IF(TYPS.EQ.'DOMAINE')THEN
  45. IRET=1
  46. RETURN
  47. ENDIF
  48. ENDIF
  49. ENDIF
  50.  
  51. 99 CONTINUE
  52. IRET=0
  53. C% On veut un modèle de type %m1:16 .
  54. MOTERR( 1:16) = 'NAVIER_STOKES '
  55. CALL ERREUR(719)
  56. WRITE(IOIMP,*)' ou une table de soustype DOMAINE '
  57. RETURN
  58. END
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  

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