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