triangulation_order3_plot Subroutine

subroutine triangulation_order3_plot(file_name, node_num, node_xy, triangle_num, triangle_node, node_show, triangle_show)

************80

TRIANGULATION_ORDER3_PLOT plots a 3-node triangulation of a set of nodes.

Arguments

Type IntentOptional Attributes Name
character(len=*) :: file_name
integer(kind=4) :: node_num
real(kind=8) :: node_xy(2,node_num)
integer(kind=4) :: triangle_num
integer(kind=4) :: triangle_node(3,triangle_num)
integer(kind=4) :: node_show
integer(kind=4) :: triangle_show

Variables

Type Visibility Attributes Name Initial
real(kind=8), public :: ave_x
real(kind=8), public :: ave_y
integer(kind=4), public, parameter :: circle_size = 5
integer(kind=4), public :: delta
integer(kind=4), public :: e
integer(kind=4), public :: file_unit
integer(kind=4), public :: i
integer(kind=4), public :: i4_wrap
integer(kind=4), public :: ios
integer(kind=4), public :: node
character(len=40), public :: string
integer(kind=4), public :: triangle
real(kind=8), public :: x_max
real(kind=8), public :: x_min
integer(kind=4), public :: x_ps
integer(kind=4), public :: x_ps_max = 576
integer(kind=4), public :: x_ps_max_clip = 594
integer(kind=4), public :: x_ps_min = 36
integer(kind=4), public :: x_ps_min_clip = 18
real(kind=8), public :: x_scale
real(kind=8), public :: y_max
real(kind=8), public :: y_min
integer(kind=4), public :: y_ps
integer(kind=4), public :: y_ps_max = 666
integer(kind=4), public :: y_ps_max_clip = 684
integer(kind=4), public :: y_ps_min = 126
integer(kind=4), public :: y_ps_min_clip = 108
real(kind=8), public :: y_scale