quadric_mod.f File Reference

Go to the source code of this file.

Modules
module	quadric

Functions/Subroutines
double precision function, dimension(3)	quadric::cross_product (A, B)

Variables
integer, parameter	quadric::dim_quadric = 500
integer	quadric::n_quadric
integer	quadric::quadric_id
character(len=12), dimension(dim_quadric)	quadric::quadric_form
double precision	quadric::quadric_scale
double precision, dimension(dim_quadric)	quadric::lambda_x
double precision, dimension(dim_quadric)	quadric::lambda_y
double precision, dimension(dim_quadric)	quadric::lamb
double precision, dimension(dim_quadric)	quadric::dquadric
double precision, dimension(dim_quadric)	quadric::t_x
double precision, dimension(dim_quadric)	quadric::t_y
double precision, dimension(dim_quadric)	quadric::t_z
double precision, dimension(dim_quadric)	quadric::theta_x
double precision, dimension(dim_quadric)	quadric::theta_y
double precision, dimension(dim_quadric)	quadric::theta_
double precision, dimension(dim_quadric)	quadric::radius
double precision, dimension(dim_quadric)	quadric::torus_r1
double precision, dimension(dim_quadric)	quadric::torus_r2
double precision, dimension(dim_quadric)	quadric::ucoil_r1
double precision, dimension(dim_quadric)	quadric::ucoil_r2
double precision, dimension(dim_quadric)	quadric::ucoil_y1
double precision, dimension(dim_quadric)	quadric::ucoil_y2
double precision, dimension(dim_quadric)	quadric::bend_r1
double precision, dimension(dim_quadric)	quadric::bend_r2
double precision, dimension(dim_quadric)	quadric::bend_theta1
double precision, dimension(dim_quadric)	quadric::bend_thet
double precision, dimension(dim_quadric)	quadric::c2c_y1
double precision, dimension(dim_quadric)	quadric::c2c_y2
double precision, dimension(dim_quadric)	quadric::c2c_r1
double precision, dimension(dim_quadric)	quadric::c2c_r2
double precision, dimension(dim_quadric)	quadric::half_angle
double precision, dimension(dim_quadric)	quadric::reactor1_r1
double precision, dimension(dim_quadric)	quadric::reactor1_r
double precision, dimension(dim_quadric)	quadric::reactor1_y1
double precision, dimension(dim_quadric)	quadric::reactor1_y
double precision, dimension(dim_quadric)	quadric::reactor1_yr1
double precision, dimension(dim_quadric)	quadric::reactor1_
double precision, dimension(dim_quadric)	quadric::reactor1_rr1
double precision, dimension(dim_quadric)	quadric::reactor1_theta1
double precision, dimension(dim_quadric)	quadric::reacto
double precision, dimension(dim_quadric)	quadric::n_x
double precision, dimension(dim_quadric)	quadric::n_y
double precision, dimension(dim_quadric)	quadric::n_z
double precision, dimension(3, 3, dim_quadric)	quadric::a_quadric
double precision, dimension(1, 3, dim_quadric)	quadric::t_quadric
double precision, dimension(dim_quadric)	quadric::clip_xmin
double precision, dimension(dim_quadric)	quadric::clip_xmax
double precision, dimension(dim_quadric)	quadric::cl
double precision, dimension(dim_quadric)	quadric::piece_xmin
double precision, dimension(dim_quadric)	quadric::piece_xmax
logical, dimension(dim_quadric)	quadric::fluid_in_clipped_region
integer, dimension(dim_quadric)	quadric::bc_id_q
integer, parameter	quadric::dim_group = 50
integer	quadric::n_group
integer, dimension(dim_group)	quadric::group_size
integer, dimension(dim_group, dim_quadric)	quadric::group_q
character(len=9), dimension(dim_group)	quadric::group_relation
character(len=9), dimension(dim_group)	quadric::relation_with_previous
double precision	quadric::tol_f
integer	quadric::itermax_int