hto_linear_comb_c::operator(.lcc.) Interface Reference

Public Member Functions
real *8 function, dimension(2)	lcc (c, x)

Detailed Description

Definition at line 341 of file CALLING_cpHTO.f.

Member Function/Subroutine Documentation

lcc()

real*8 function, dimension(2) hto_linear_comb_c::operator(.lcc.)::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      

---

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

• MELA/fortran/CPS/CALLING_cpHTO.f