coordinate_systems_mod Module Reference

Data Types
interface	assignment(=)
type	cartesian2d_t
type	cartesian3d_t
interface	change_coordinates
interface	distance
interface	operator(==)
type	spherical_polar_t

Functions/Subroutines
subroutine, private	copy_cart2d (cart2, cart1)
pure logical function, private	eq_cart2d (cart2, cart1)
pure real(real_kind) function, private	distance_cart2d (cart1, cart2)
pure real(real_kind) function, dimension(size(cart1)), private	distance_cart2d_v (cart1, cart2)
pure real(real_kind) function, private	distance_cart3d (cart1, cart2)
pure real(real_kind) function, dimension(size(cart1)), private	distance_cart3d_v (cart1, cart2)
pure type(cartesian3d_t) function, public	spherical_to_cart (sphere)
pure type(cartesian3d_t) function, dimension(size(sphere)), private	spherical_to_cart_v (sphere)
pure type(spherical_polar_t) function, private	cart_to_spherical (cart)
pure type(spherical_polar_t) function, private	aray_to_spherical (coordinates)
pure type(spherical_polar_t) function, dimension(size(cart)), private	cart_to_spherical_v (cart)
type(spherical_polar_t) function	unit_face_based_cube_to_unit_sphere (cart, face_no)
type(spherical_polar_t) function, public	cart2spherical (x, y, face_no)
type(spherical_polar_t) function, public	projectpoint (cartin, face_no)
type(cartesian3d_t) function, public	cubedsphere2cart (cartin, face_no)
pure type(cartesian2d_t) function, public	sphere2cubedsphere (sphere, face_no)
pure type(cartesian2d_t) function, public	cart2cubedsphere (cart3D, face_no)
pure integer function, public	cube_face_number_from_cart (cart)
pure integer function, public	cube_face_number_from_sphere (sphere)
subroutine, public	cart2cubedspherexy (cart3d, face_no, cartxy)
subroutine, public	sphere_tri_area (v1, v2, v3, area)
real(kind=real_kind) function, public	surfareaxy (x1, x2, y1, y2)

Variables
real(kind=real_kind), parameter, public	dist_threshold = 1.0D-9
real(kind=real_kind), parameter	one =1.0D0
real(kind=real_kind), parameter	two =2.0D0

Function/Subroutine Documentation

aray_to_spherical()

pure type(spherical_polar_t) function, private coordinate_systems_mod::aray_to_spherical ( real(kind=real_kind), dimension(3), intent(in)  coordinates )

private

Here is the call graph for this function:

cart2cubedsphere()

pure type (cartesian2d_t) function, public coordinate_systems_mod::cart2cubedsphere	(	type(cartesian3d_t), intent(in)	cart3D,
		integer, intent(in)	face_no
	)

Here is the caller graph for this function:

cart2cubedspherexy()

subroutine, public coordinate_systems_mod::cart2cubedspherexy	(	type(cartesian3d_t), intent(in)	cart3d,
		integer, intent(in)	face_no,
		type (cartesian2d_t), intent(out)	cartxy
	)

cart2spherical()

type (spherical_polar_t) function, public coordinate_systems_mod::cart2spherical	(	real(kind=real_kind), intent(in)	x,
		real(kind=real_kind), intent(in)	y,
		integer, intent(in)	face_no
	)

Here is the call graph for this function:

cart_to_spherical()

pure type(spherical_polar_t) function, private coordinate_systems_mod::cart_to_spherical ( type(cartesian3d_t), intent(in)  cart )

private

Here is the caller graph for this function:

cart_to_spherical_v()

pure type(spherical_polar_t) function, dimension(size(cart)), private coordinate_systems_mod::cart_to_spherical_v ( type(cartesian3d_t), dimension(:), intent(in)  cart )

private

Here is the call graph for this function:

copy_cart2d()

subroutine, private coordinate_systems_mod::copy_cart2d ( type(cartesian2d_t), intent(out)  cart2, type(cartesian2d_t), intent(in)  cart1  )

private

cube_face_number_from_cart()

pure integer function, public coordinate_systems_mod::cube_face_number_from_cart

(

type(cartesian3d_t), intent(in)

cart

)

Here is the caller graph for this function:

cube_face_number_from_sphere()

pure integer function, public coordinate_systems_mod::cube_face_number_from_sphere

(

type (spherical_polar_t), intent(in)

sphere

)

Here is the call graph for this function:

Here is the caller graph for this function:

cubedsphere2cart()

type(cartesian3d_t) function, public coordinate_systems_mod::cubedsphere2cart	(	type (cartesian2d_t), intent(in)	cartin,
		integer, intent(in)	face_no
	)

Here is the call graph for this function:

Here is the caller graph for this function:

distance_cart2d()

pure real(real_kind) function, private coordinate_systems_mod::distance_cart2d ( type(cartesian2d_t), intent(in)  cart1, type(cartesian2d_t), intent(in), optional  cart2  )

private

Here is the caller graph for this function:

distance_cart2d_v()

pure real(real_kind) function, dimension(size(cart1)), private coordinate_systems_mod::distance_cart2d_v ( type(cartesian2d_t), dimension(:), intent(in)  cart1, type(cartesian2d_t), dimension(:), intent(in), optional  cart2  )

private

Here is the call graph for this function:

distance_cart3d()

pure real(real_kind) function, private coordinate_systems_mod::distance_cart3d ( type(cartesian3d_t), intent(in)  cart1, type(cartesian3d_t), intent(in), optional  cart2  )

private

Here is the caller graph for this function:

distance_cart3d_v()

pure real(real_kind) function, dimension(size(cart1)), private coordinate_systems_mod::distance_cart3d_v ( type(cartesian3d_t), dimension(:), intent(in)  cart1, type(cartesian3d_t), dimension(:), intent(in), optional  cart2  )

private

Here is the call graph for this function:

eq_cart2d()

pure logical function, private coordinate_systems_mod::eq_cart2d ( type(cartesian2d_t), intent(in)  cart2, type(cartesian2d_t), intent(in)  cart1  )

private

projectpoint()

type (spherical_polar_t) function, public coordinate_systems_mod::projectpoint	(	type (cartesian2d_t), intent(in)	cartin,
		integer, intent(in)	face_no
	)

Here is the call graph for this function:

Here is the caller graph for this function:

sphere2cubedsphere()

pure type(cartesian2d_t) function, public coordinate_systems_mod::sphere2cubedsphere	(	type(spherical_polar_t), intent(in)	sphere,
		integer, intent(in)	face_no
	)

Here is the caller graph for this function:

sphere_tri_area()

subroutine, public coordinate_systems_mod::sphere_tri_area	(	type (cartesian3d_t)	v1,
		type (cartesian3d_t)	v2,
		type (cartesian3d_t)	v3,
		real(kind=real_kind)	area
	)

Here is the caller graph for this function:

spherical_to_cart()

pure type(cartesian3d_t) function, public coordinate_systems_mod::spherical_to_cart

(

type(spherical_polar_t), intent(in)

sphere

)

Here is the caller graph for this function:

spherical_to_cart_v()

pure type(cartesian3d_t) function, dimension(size(sphere)), private coordinate_systems_mod::spherical_to_cart_v ( type(spherical_polar_t), dimension(:), intent(in)  sphere )

private

Here is the call graph for this function:

surfareaxy()

real (kind=real_kind) function, public coordinate_systems_mod::surfareaxy	(	real (kind=real_kind), intent(in)	x1,
		real (kind=real_kind), intent(in)	x2,
		real (kind=real_kind), intent(in)	y1,
		real (kind=real_kind), intent(in)	y2
	)

unit_face_based_cube_to_unit_sphere()

type (spherical_polar_t) function coordinate_systems_mod::unit_face_based_cube_to_unit_sphere	(	type (cartesian2d_t), intent(in)	cart,
		integer, intent(in)	face_no
	)

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

dist_threshold

real(kind=real_kind), parameter, public coordinate_systems_mod::dist_threshold = 1.0D-9

one

real(kind=real_kind), parameter coordinate_systems_mod::one =1.0D0

private

two

real(kind=real_kind), parameter coordinate_systems_mod::two =2.0D0

private