Defines a plane with a circular or rectangular boundary
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | shape | = | 0 | Boundary shape 1="Rectangular", 2="circular" |
|
real(kind=Float64), | public | :: | hh | = | 0.d0 | Half height of boundary [cm] |
|
real(kind=Float64), | public | :: | hw | = | 0.d0 | Half width of boundary [cm] |
|
real(kind=Float64), | public, | dimension(3) | :: | origin | = | 0.d0 | Origin of plane in machine coordinates |
real(kind=Float64), | public, | dimension(3,3) | :: | basis | = | 0.d0 | Basis vectors basis(:,1) = u_1 is plane normal |
real(kind=Float64), | public, | dimension(3,3) | :: | inv_basis | = | 0.d0 | Inverse basis |
type BoundedPlane
!+ Defines a plane with a circular or rectangular boundary
integer :: shape = 0
!+ Boundary shape 1="Rectangular", 2="circular"
real(Float64) :: hh = 0.d0
!+ Half height of boundary [cm]
real(Float64) :: hw = 0.d0
!+ Half width of boundary [cm]
real(Float64), dimension(3) :: origin = 0.d0
!+ Origin of plane in machine coordinates
real(Float64), dimension(3,3) :: basis = 0.d0
!+ Basis vectors basis(:,1) = u_1 is plane normal
real(Float64), dimension(3,3) :: inv_basis= 0.d0
!+ Inverse basis
end type BoundedPlane