23 integer(I4B),
intent(in) :: n
24 integer(I4B) :: connected_faces_count
26 connected_faces_count = dis%con%ia(n + 1) - dis%con%ia(n) - 1
42 real(dp),
dimension(3) :: d
45 integer(I4B),
intent(in) :: n, m
47 real(dp) :: x_dir, y_dir, z_dir, length
48 integer(I4B) :: ipos, isympos, ihc
49 real(dp),
dimension(3) :: xn, xm
53 do ipos = dis%con%ia(n) + 1, dis%con%ia(n + 1) - 1
54 if (dis%con%ja(ipos) == m)
then
55 isympos = dis%con%jas(ipos)
62 if (isympos == -1)
then
71 ihc = dis%con%ihc(isympos)
72 call dis%connection_vector(n, m, .false.,
done,
done, ihc, x_dir, &
92 integer(I4B),
intent(in) :: n
93 real(dp),
dimension(3) :: center
97 center(3) = (dis%top(n) + dis%bot(n)) / 2.0_dp
This module contains simulation constants.
real(dp), parameter dsame
real constant for values that are considered the same based on machine precision
real(dp), parameter done
real constant 1
real(dp) function, dimension(3), public cell_center(dis, n)
Returns the center coordinates of a given cell.
integer(i4b) function, public number_connected_faces(dis, n)
Returns the number of connected faces for a given cell.
real(dp) function, dimension(3), public node_distance(dis, n, m)
Returns the vector distance from cell n to cell m.
This module defines variable data types.