Télécharger copie9.eso

Retour à la liste

Numérotation des lignes :

  1. C COPIE9 SOURCE CHAT 11/03/16 21:18:07 6902
  2. SUBROUTINE COPIE9 (IPOIN1,IPOIN2)
  3. ************************************************************************
  4. *
  5. * C O P I E 9
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * CREER UNE COPIE D'UN OBJET DE TYPE "MMODEL".
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. * CALL COPIE9 (IPOIN1,IPOIN2)
  17. *
  18. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  19. * -----------
  20. *
  21. * IPOIN1 ENTIER (E) POINTEUR DE L'OBJET A COPIER.
  22. * IPOIN2 ENTIER (S) POINTEUR DE LA COPIE.
  23. *
  24. * LANGAGE:
  25. * --------
  26. *
  27. * ESOPE + FORTRAN77
  28. *
  29. ************************************************************************
  30. *
  31. IMPLICIT INTEGER(I-N)
  32. -INC SMMODEL
  33. *
  34. MMODE1 = IPOIN1
  35. SEGINI,MMODEL=MMODE1
  36. IPOIN2 = MMODEL
  37. NSOUS = KMODEL(/1)
  38. *
  39. DO IA=1,NSOUS
  40. IMODE1=KMODEL(IA)
  41. SEGINI,IMODEL=IMODE1
  42. NFOR=FORMOD(/2)
  43. C CAS DARCY OU NAVIER ON OUBLIE LA TABLE DE PRECONDITIONNEMENT
  44. CALL PLACE (FORMOD,NFOR,IDARC,'DARCY')
  45. CALL PLACE (FORMOD,NFOR,INAVI,'NAVIER_STOKES')
  46. CALL PLACE (FORMOD,NFOR,IEULE,'EULER')
  47. IF((IDARC.NE.0).OR.(INAVI.NE.0).OR.(IEULE.NE.0)) INFMOD(2)=0
  48. KMODEL(IA)=IMODEL
  49. SEGDES IMODEL
  50. END DO
  51. *
  52. SEGDES MMODEL
  53. *
  54. RETURN
  55. END
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  

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