nodenumbertec3D Function

public function nodenumbertec3D(i1, i2, i3, nx1, nx2, nx3, ig, igrid)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i1
integer, intent(in) :: i2
integer, intent(in) :: i3
integer, intent(in) :: nx1
integer, intent(in) :: nx2
integer, intent(in) :: nx3
integer, intent(in) :: ig
integer, intent(in) :: igrid

Return Value integer


Calls

proc~~nodenumbertec3d~~CallsGraph proc~nodenumbertec3d nodenumbertec3D proc~mpistop mpistop proc~nodenumbertec3d->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~nodenumbertec3d~~CalledByGraph proc~nodenumbertec3d nodenumbertec3D proc~save_conntec save_conntec proc~save_conntec->proc~nodenumbertec3d proc~tecplot tecplot proc~tecplot->proc~save_conntec proc~tecplot_mpi tecplot_mpi proc~tecplot_mpi->proc~save_conntec proc~generate_plotfile generate_plotfile proc~generate_plotfile->proc~tecplot proc~generate_plotfile->proc~tecplot_mpi 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

  integer function nodenumbertec3D(i1,i2,i3,nx1,nx2,nx3,ig,igrid)

    integer, intent(in):: i1,i2,i3,nx1,nx2,nx3,ig,igrid

    nodenumbertec3D=i1+i2*nx1+i3*nx1*nx2+(ig-1)*nx1*nx2*nx3
    if(nodenumbertec3D>9999999)call mpistop("too large nodenumber")

  end function nodenumbertec3D