create_projection_matrix Subroutine

public subroutine create_projection_matrix(azim, elev, dist, proj_matrix)

Create 4x4 projection matrix for 3D to 2D transformation

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	azim
real(kind=wp),	intent(in)			::	elev
real(kind=wp),	intent(in)			::	dist
real(kind=wp),	intent(out)			::	proj_matrix(4,4)