node_numbers.f90

Go to the documentation of this file.

subroutine node_numbers         
!-------------------------------------------------------------------
! subroutine to calculate the four nodenumbers of every element
!-------------------------------------------------------------------
  
  use itm_types
  use mod_corners
  use mod_mesh
  
  implicit none
  
  integer(itm_i4) :: no, n, m
  
  no = 0
  do n = 1, nr - 1
    do m = 1, np - 1
      no = no + 1
      nodeno(no, 1) = (n - 1) * np + m
      nodeno(no, 2) = nodeno(no, 1) + 1
      nodeno(no, 3) = nodeno(no, 2) + np
      nodeno(no, 4) = nodeno(no, 1) + np
    end do
  end do
  
  return
end subroutine node_numbers