Télécharger la plaquette Cast3M


fr en

Télécharger copie9.eso

Retour à la liste

Numérotation des lignes : 

copie9

  1. C COPIE9    SOURCE    CB215821  24/04/12    21:15:29     11897          
  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 PPARAM
  33. -INC SMMODEL
  34. *
  35.       MMODE1 = IPOIN1
  36.       SEGINI,MMODEL=MMODE1
  37.       IPOIN2 = MMODEL
  38.       NSOUS = KMODEL(/1)
  39. *
  40.       DO IA=1,NSOUS
  41.          IMODE1=KMODEL(IA)
  42.          SEGINI,IMODEL=IMODE1
  43.             NFOR=FORMOD(/2)
  44. C   CAS DARCY OU NAVIER ON OUBLIE LA TABLE DE PRECONDITIONNEMENT
  45.             CALL PLACE (FORMOD,NFOR,IDARC,'DARCY')
  46.             CALL PLACE (FORMOD,NFOR,INAVI,'NAVIER_STOKES')
  47.             CALL PLACE (FORMOD,NFOR,IEULE,'EULER')
  48.             IF((IDARC.NE.0).OR.(INAVI.NE.0).OR.(IEULE.NE.0)) INFMOD(2)=0
  49.          KMODEL(IA)=IMODEL
  50.          SEGDES IMODEL
  51.       END DO
  52. *
  53.       SEGDES MMODEL
  54. *
  55.       RETURN
  56.       END
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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