hto_linear_comb::operator(.lc.) Interface Reference

Public Member Functions
real *8 function	lc (c, x)

Detailed Description

Definition at line 731 of file CALLING_cpHTO.f.

Member Function/Subroutine Documentation

lc()

real*8 function hto_linear_comb::operator(.lc.)::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      

---

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

• MELA/fortran/CPS/CALLING_cpHTO.f