hto_linear_comb_c Module Reference

Data Types
interface	operator(.lcc.)

Functions/Subroutines
real *8 function, dimension(2)	lcc (c, x)

Function/Subroutine Documentation

lcc()

real*8 function, dimension(2) hto_linear_comb_c::lcc	(	real*8, dimension(:), intent(in)	c,
		real*8, dimension(2), intent(in)	x
	)

Definition at line 346 of file CALLING_cpHTO.f.

       USE hto_acmplx_pro
       USE hto_units
       IMPLICIT NONE
       real*8, dimension(:) :: c
       real*8, dimension(2) :: x,lcc,sum
       INTENT(IN) c,x
       INTEGER n,i
       n= size(c)
       sum= c(n)*co
       DO i=n-1,1,-1
        sum= (sum.cp.x)+c(i)*co
       ENDDO
       lcc= sum