Esope source files

   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 : *
  15 : *     CALL COPIE9 (IPOIN1,IPOIN2)
  16 : *
  17 : * PARAMETRES:  (E)=ENTREE   (S)=SORTIE
  18 : * -----------
  19 : *
  20 : *     IPOIN1  ENTIER    (E)  POINTEUR DE L'OBJET A COPIER.
  21 : *     IPOIN2  ENTIER    (S)  POINTEUR DE LA COPIE.
  22 : *
  23 : * LANGAGE:
  24 : * --------
  25 : *
  26 : *     ESOPE + FORTRAN77
  27 : *
  28 : ************************************************************************
  29 : *
  30 :       IMPLICIT INTEGER(I-N)
  31 : -INC SMMODEL
  32 : *
  33 :       MMODE1 = IPOIN1
  34 :       SEGINI,MMODEL=MMODE1
  35 :       IPOIN2 = MMODEL
  36 :       NSOUS = KMODEL(/1)
  37 : *
  38 :       DO IA=1,NSOUS
  39 :          IMODE1=KMODEL(IA)
  40 :          SEGINI,IMODEL=IMODE1
  41 :             NFOR=FORMOD(/2)
  42 : C   CAS DARCY OU NAVIER ON OUBLIE LA TABLE DE PRECONDITIONNEMENT
  42 :             CALL PLACE (FORMOD,NFOR,IDARC,'DARCY')
  42 :             CALL PLACE (FORMOD,NFOR,INAVI,'NAVIER_STOKES')
  42 :             CALL PLACE (FORMOD,NFOR,IEULE,'EULER')
  43 :             IF((IDARC.NE.0).OR.(INAVI.NE.0).OR.(IEULE.NE.0)) INFMOD(2)=0
  44 :          KMODEL(IA)=IMODEL
  45 :          SEGDES IMODEL
  46 :       END DO
  47 : *
  48 :       SEGDES MMODEL
  49 : *
  50 :       RETURN
  51 :       END
  52 :  
  53 :  
  54 :  
  55 :  
  56 :  
  57 :  
  58 :  
  59 :  
  60 :