module_libmassv::vrec Interface Reference

Public Member Functions
subroutine	vrec_d (y, x, n)
subroutine	vrec_s (y, x, n)

Member Function/Subroutine Documentation

vrec_d()

subroutine module_libmassv::vrec::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::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
 

---

The documentation for this interface was generated from the following file:

• Source/Microphysics/WSM6/ERF_module_libmassv.F90