g2l_mesh Subroutine

  1. class_mesh_procedures.F90
  2. class_mesh_procedures
  3. g2l_mesh

subroutine g2l_mesh(msh)

Arguments

Type IntentOptional AttributesName
type(mesh), intent(inout) :: msh

Calls

proc~~g2l_mesh~~CallsGraph proc~g2l_mesh g2l_mesh interface~g2l_conn g2l_conn proc~g2l_mesh->interface~g2l_conn interface~bcast_cell bcast_cell proc~g2l_mesh->interface~bcast_cell interface~g2l_cell g2l_cell proc~g2l_mesh->interface~g2l_cell interface~g2l_vertex g2l_vertex proc~g2l_mesh->interface~g2l_vertex interface~bcast_vertex bcast_vertex proc~g2l_mesh->interface~bcast_vertex interface~mypnum_ mypnum_ proc~g2l_mesh->interface~mypnum_ interface~bcast_conn bcast_conn proc~g2l_mesh->interface~bcast_conn interface~g2l_face g2l_face proc~g2l_mesh->interface~g2l_face proc~bcast_cell bcast_cell interface~bcast_cell->proc~bcast_cell proc~g2l_cell g2l_cell interface~g2l_cell->proc~g2l_cell proc~g2l_vertex g2l_vertex interface~g2l_vertex->proc~g2l_vertex proc~bcast_vertex bcast_vertex interface~bcast_vertex->proc~bcast_vertex proc~mypnum_ mypnum_ interface~mypnum_->proc~mypnum_ proc~bcast_conn bcast_conn interface~bcast_conn->proc~bcast_conn proc~g2l_face g2l_face interface~g2l_face->proc~g2l_face psb_get_loc_to_glob psb_get_loc_to_glob proc~g2l_vertex->psb_get_loc_to_glob interface~alloc_vertex alloc_vertex proc~g2l_vertex->interface~alloc_vertex interface~abort_psblas abort_psblas proc~g2l_vertex->interface~abort_psblas psb_cd_get_local_cols psb_cd_get_local_cols proc~g2l_vertex->psb_cd_get_local_cols interface~free_vertex free_vertex proc~g2l_vertex->interface~free_vertex proc~bcast_cell->interface~mypnum_ interface~alloc_cell alloc_cell proc~bcast_cell->interface~alloc_cell proc~bcast_cell->interface~abort_psblas interface~icontxt_ icontxt_ proc~bcast_cell->interface~icontxt_ psb_bcast psb_bcast proc~bcast_cell->psb_bcast proc~g2l_cell->psb_get_loc_to_glob proc~g2l_cell->interface~alloc_cell proc~g2l_cell->psb_cd_get_local_cols proc~bcast_vertex->interface~mypnum_ proc~bcast_vertex->interface~alloc_vertex proc~bcast_vertex->interface~abort_psblas proc~bcast_vertex->interface~icontxt_ proc~bcast_vertex->psb_bcast interface~bcast_vector bcast_vector proc~bcast_vertex->interface~bcast_vector proc~bcast_vertex->interface~free_vertex interface~alloc_face alloc_face proc~g2l_face->interface~alloc_face proc~g2l_face->psb_get_loc_to_glob proc~g2l_face->psb_cd_get_local_cols psb_get_glob_to_loc psb_get_glob_to_loc proc~g2l_face->psb_get_glob_to_loc proc~bcast_conn->interface~mypnum_ proc~bcast_conn->interface~abort_psblas interface~alloc_conn alloc_conn proc~bcast_conn->interface~alloc_conn proc~bcast_conn->interface~icontxt_ proc~bcast_conn->psb_bcast proc~alloc_face alloc_face interface~alloc_face->proc~alloc_face proc~alloc_vertex alloc_vertex interface~alloc_vertex->proc~alloc_vertex proc~alloc_cell alloc_cell interface~alloc_cell->proc~alloc_cell proc~abort_psblas abort_psblas interface~abort_psblas->proc~abort_psblas proc~alloc_conn alloc_conn interface~alloc_conn->proc~alloc_conn proc~icontxt_ icontxt_ interface~icontxt_->proc~icontxt_ proc~bcast_vector bcast_vector interface~bcast_vector->proc~bcast_vector proc~free_vertex free_vertex interface~free_vertex->proc~free_vertex proc~alloc_face->interface~abort_psblas proc~bcast_vector->interface~mypnum_ proc~bcast_vector->interface~abort_psblas proc~bcast_vector->interface~icontxt_ proc~bcast_vector->psb_bcast interface~free_vector free_vector proc~bcast_vector->interface~free_vector interface~alloc_vector alloc_vector proc~bcast_vector->interface~alloc_vector proc~alloc_cell->interface~abort_psblas psb_abort psb_abort proc~abort_psblas->psb_abort proc~free_vertex->interface~abort_psblas proc~alloc_conn->interface~abort_psblas proc~alloc_vertex->interface~abort_psblas interface~vector_ vector_ proc~alloc_vertex->interface~vector_ proc~free_vector free_vector interface~free_vector->proc~free_vector proc~vector_ vector_ interface~vector_->proc~vector_ proc~alloc_vector alloc_vector interface~alloc_vector->proc~alloc_vector proc~alloc_vector->interface~abort_psblas proc~free_vector->interface~abort_psblas

Called by

proc~~g2l_mesh~~CalledByGraph proc~g2l_mesh g2l_mesh proc~create_mesh create_mesh proc~create_mesh->proc~g2l_mesh interface~create_mesh create_mesh interface~create_mesh->proc~create_mesh

Contents

Source Code

g2l_mesh

Source Code

    SUBROUTINE g2l_mesh(msh)
        IMPLICIT NONE
        !!
        TYPE(mesh), INTENT(INOUT) :: msh

        CALL sw_g2l%tic()

        IF(mypnum_() == 0) THEN
            WRITE(*,*) 'Global to local reallocation of MESH object'
            WRITE(*,*)
        END IF

        CALL g2l_conn(msh%v2f,msh%desc_v,msh%desc_f)    ! Reallocates MSH%V2F
        CALL g2l_face(msh%faces,msh%desc_f,msh%desc_c)  ! Reallocates MSH%FACES
        CALL bcast_cell(msh%cells)                      ! Broadcast   MSH%CELLS
        CALL g2l_cell(msh%cells,msh%desc_c)             ! Reallocates MSH%CELLS
        CALL bcast_vertex(msh%verts)                    ! Broadcast   MSH%VERTS
        CALL g2l_vertex(msh%verts,msh%desc_v)           ! Reallocates MSH%VERTS

        CALL g2l_conn(msh%v2c,msh%desc_v,msh%desc_c)    ! Reallocates MSH%V2C
        CALL bcast_conn(msh%c2g)                        ! Broadcast   MSH%C2G
        CALL g2l_conn(msh%c2g,msh%desc_c)               ! Reallocates MSH%C2G
        !

        CALL bcast_conn(msh%v2b)                        ! Broadcast   MSH%V2B
        CALL g2l_conn(msh%v2b,msh%desc_v)               ! Reallocates MSH%V2B

        CALL sw_g2l%toc()

    END SUBROUTINE g2l_mesh