save_connvtk Subroutine

public subroutine save_connvtk(qunit, igrid)

Uses

  • proc~~save_connvtk~~UsesGraph proc~save_connvtk save_connvtk module~mod_global_parameters mod_global_parameters proc~save_connvtk->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: qunit
integer, intent(in) :: igrid

Called by

proc~~save_connvtk~~CalledByGraph proc~save_connvtk save_connvtk proc~unstructuredvtk unstructuredvtk proc~unstructuredvtk->proc~save_connvtk proc~write_vtk write_vtk proc~write_vtk->proc~save_connvtk proc~generate_plotfile generate_plotfile proc~generate_plotfile->proc~unstructuredvtk proc~punstructuredvtk_mpi punstructuredvtk_mpi proc~generate_plotfile->proc~punstructuredvtk_mpi proc~unstructuredvtk_mpi unstructuredvtk_mpi proc~generate_plotfile->proc~unstructuredvtk_mpi proc~punstructuredvtk_mpi->proc~write_vtk proc~unstructuredvtk_mpi->proc~write_vtk proc~main main proc~main->proc~generate_plotfile proc~timeintegration timeintegration proc~main->proc~timeintegration proc~saveamrfile saveamrfile proc~saveamrfile->proc~generate_plotfile proc~timeintegration->proc~saveamrfile program~agile agile program~agile->proc~main

Source Code

  subroutine save_connvtk(qunit,igrid)
    ! this saves the basic line, pixel and voxel connectivity,
    ! as used by VTK file outputs for unstructured grid
    use mod_global_parameters

    integer, intent(in) :: qunit, igrid

    integer :: nx1,nx2,nx3, nxC1,nxC2,nxC3, ix1,ix2,ix3

    nx1=ixMhi1-ixMlo1+1;nx2=ixMhi2-ixMlo2+1;nx3=ixMhi3-ixMlo3+1;
    nxC1=nx1+1;nxC2=nx2+1;nxC3=nx3+1;
    do ix3=1,nx3
    do ix2=1,nx2
    do ix1=1,nx1



            write(qunit,'(8(i7,1x))')(ix3-1)*nxC2*nxC1+(ix2-1)*nxC1+ix1-1,&
                (ix3-1)*nxC2*nxC1+(ix2-1)*nxC1+ix1,&
               (ix3-1)*nxC2*nxC1+    ix2*nxC1+ix1-1,&
               (ix3-1)*nxC2*nxC1+    ix2*nxC1+ix1,&
               ix3*nxC2*nxC1+(ix2-1)*nxC1+ix1-1,ix3*nxC2*nxC1+(ix2-1)*nxC1+ix1,&
               ix3*nxC2*nxC1+    ix2*nxC1+ix1-1,ix3*nxC2*nxC1+    ix2*nxC1+ix1

    end do
    end do
    end do

  end subroutine save_connvtk