nodenumbertec1D Function

public function nodenumbertec1D(i1, nx1, ig, igrid)

Uses

  • proc~~nodenumbertec1d~~UsesGraph proc~nodenumbertec1d nodenumbertec1D module~mod_comm_lib mod_comm_lib proc~nodenumbertec1d->module~mod_comm_lib

Arguments

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

Return Value integer


Calls

proc~~nodenumbertec1d~~CallsGraph proc~nodenumbertec1d nodenumbertec1D proc~mpistop mpistop proc~nodenumbertec1d->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Source Code

  integer function nodenumbertec1D(i1,nx1,ig,igrid)
    use mod_comm_lib, only: mpistop
    integer, intent(in):: i1,nx1,ig,igrid

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

  end function nodenumbertec1D