hto_linear_comb Module Reference

Data Types
interface	operator(.lc.)

Functions/Subroutines
real *8 function	lc (c, x)

Function/Subroutine Documentation

lc()

real*8 function hto_linear_comb::lc	(	real*8, dimension(:), intent(in)	c,
		real*8, intent(in)	x
	)

Definition at line 736 of file CALLING_cpHTO.f.

       IMPLICIT NONE
       real*8, dimension(:) :: c
       real*8 x,lc
       INTENT(IN) c,x
       INTEGER n,i
       real*8 sum      
       n= size(c)
       sum= c(n)
       DO i=n-1,1,-1
        sum= sum*x+c(i)
       ENDDO
       lc= sum