nodenumbertec2D Function

public function nodenumbertec2D(i1, i2, nx1, nx2, ig, igrid)

Arguments

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

Return Value integer


Calls

proc~~nodenumbertec2d~~CallsGraph proc~nodenumbertec2d nodenumbertec2D proc~mpistop mpistop proc~nodenumbertec2d->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Source Code

  integer function nodenumbertec2D(i1,i2,nx1,nx2,ig,igrid)

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

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

  end function nodenumbertec2D