module_libmassv Module Reference

Data Types
interface	vrec
interface	vsqrt

Functions/Subroutines
subroutine	vrec_d (y, x, n)
subroutine	vrec_s (y, x, n)
subroutine	vsqrt_d (y, x, n)
subroutine	vsqrt_s (y, x, n)

Variables
integer, parameter, private	r4kind = selected_real_kind(6)
integer, parameter, private	r8kind = selected_real_kind(12)

Function/Subroutine Documentation

vrec_d()

subroutine module_libmassv::vrec_d	(	real(kind=r8kind), dimension(*), intent(out)	y,
		real(kind=r8kind), dimension(*), intent(in)	x,
		integer, intent(in)	n
	)

!=================================================================================================================
 integer,intent(in):: n
 real(kind=r8kind),dimension(*),intent(in):: x
 real(kind=r8kind),dimension(*),intent(out):: y
 
 integer:: j
!-----------------------------------------------------------------------------------------------------------------
 
 do j=1,n
    y(j)=real(1.0,kind=r8kind)/x(j)
 enddo
 

vrec_s()

subroutine module_libmassv::vrec_s	(	real(kind=r4kind), dimension(*), intent(out)	y,
		real(kind=r4kind), dimension(*), intent(in)	x,
		integer, intent(in)	n
	)

!=================================================================================================================
 integer,intent(in):: n
 real(kind=r4kind),dimension(*),intent(in):: x
 real(kind=r4kind),dimension(*),intent(out):: y
 
 integer:: j
!-----------------------------------------------------------------------------------------------------------------
 
 do j=1,n
    y(j)=real(1.0,kind=r4kind)/x(j)
 enddo
 

vsqrt_d()

subroutine module_libmassv::vsqrt_d	(	real(kind=r8kind), dimension(*), intent(out)	y,
		real(kind=r8kind), dimension(*), intent(in)	x,
		integer, intent(in)	n
	)

!=================================================================================================================
 integer,intent(in):: n
 real(kind=r8kind),dimension(*),intent(in):: x
 real(kind=r8kind),dimension(*),intent(out):: y
 
 integer:: j
!-----------------------------------------------------------------------------------------------------------------
 
 do j=1,n
    y(j)=sqrt(x(j))
 enddo
 

vsqrt_s()

subroutine module_libmassv::vsqrt_s	(	real(kind=r4kind), dimension(*), intent(out)	y,
		real(kind=r4kind), dimension(*), intent(in)	x,
		integer, intent(in)	n
	)

!=================================================================================================================
 
 integer,intent(in):: n
 real(kind=r4kind),dimension(*),intent(in):: x
 real(kind=r4kind),dimension(*),intent(out):: y
 
 integer:: j
 
!-----------------------------------------------------------------------------------------------------------------
 
 do j=1,n
    y(j)=sqrt(x(j))
 enddo
 

Variable Documentation

r4kind

integer, parameter, private module_libmassv::r4kind = selected_real_kind(6)

private

 integer, parameter, private :: R4KIND = selected_real_kind(6)

Referenced by module_libmassv::vrec::vrec_s().

r8kind

integer, parameter, private module_libmassv::r8kind = selected_real_kind(12)

private

 integer, parameter, private :: R8KIND = selected_real_kind(12)

Referenced by module_libmassv::vrec::vrec_d().