TABLE OF CONTENTS

NUM/copy_sol [ Modules ]

[ Top ] [ Modules ]

NOM

   copy_sol(cin,cout)

DESCRIPTION

 Copie des objets solides
 Copy solid objects

AUTEUR

DATE DE CREATION

ENTREES

   cin : objet calcul initial

SORTIES

   cout : objet calcul copie

SOURCE

!=========================== DEBUT DES DECLARATIONS ==================== 
!.1-----  Implicit, Use
  use num_typ
  IMPLICIT NONE
!.2-----  Declaration
  type(calcul),intent(inout) :: cin  !! Objet calcul en entree / Input calculation object
  type(calcul),intent(inout) :: cout !! Objet calcul en sortie / Output calculation object
  integer                    :: i
!=========================== DEBUT DU CODE EXECUTABLE ==================
! calcul des termes sources (physiques et ordre 2 non conservatif)
      cout%nb_sol = cin%nb_sol
      call empty_sol(cout%list_sol)

      do i=1,cin%nb_sol
        cout%list_sol(i)%id     =cin%list_sol(i)%id
        cout%list_sol(i)%imv    =cin%list_sol(i)%imv
        cout%list_sol(i)%nb_vert=cin%list_sol(i)%nb_vert
        cout%list_sol(i)%nb_face=cin%list_sol(i)%nb_face
        cout%list_sol(i)%xmin_s =cin%list_sol(i)%xmin_s
        cout%list_sol(i)%xmax_s =cin%list_sol(i)%xmax_s
        cout%list_sol(i)%ymin_s =cin%list_sol(i)%ymin_s
        cout%list_sol(i)%ymax_s =cin%list_sol(i)%ymax_s
        cout%list_sol(i)%zmin_s =cin%list_sol(i)%zmin_s
        cout%list_sol(i)%zmax_s =cin%list_sol(i)%zmax_s
        cout%list_sol(i)%rho    =cin%list_sol(i)%rho
        cout%list_sol(i)%xg     =cin%list_sol(i)%xg
        cout%list_sol(i)%theta  =cin%list_sol(i)%theta
        allocate(cout%list_sol(i)%list_facette(cin%list_sol(i)%nb_face))
        cout%list_sol(i)%list_facette  =cin%list_sol(i)%list_facette
        allocate(cout%list_sol(i)%list_vertex(cin%list_sol(i)%nb_vert))
        cout%list_sol(i)%list_vertex  =cin%list_sol(i)%list_vertex
        cout%list_sol(i)%nb_cell= 0

!      integer, dimension(:), allocatable        :: list_cells
     enddo  
  
  
!===========================   FIN DE LA ROUTINE    ====================
END SUBROUTINE copy_sol