collier_coefs::tn_cll Interface Reference

Public Member Functions
subroutine	tn_main_cll (TN, TNuv, MomInv, masses2, N, rmax, TNerr, id_in, TNerr2)
subroutine	t1_cll (A, Auv, masses2, N, rmax, Aerr, id_in)

Detailed Description

Definition at line 76 of file collier_coefs.F90.

Member Function/Subroutine Documentation

t1_cll()

subroutine collier_coefs::tn_cll::t1_cll	(	double complex, dimension(:), intent(out)	A,
		double complex, dimension(:), intent(out)	Auv,
		double complex, dimension(0:0), intent(in)	masses2,
		integer, intent(in)	N,
		integer, intent(in)	rmax,
		double precision, dimension(0:rmax), intent(out), optional	Aerr,
		integer, intent(in), optional	id_in
	)

Definition at line 4262 of file collier_coefs.F90.

 
    integer, intent(in) :: N,rmax
    double complex, intent(in) :: masses2(0:0)
    double complex, intent(out) :: A(:)
    double complex, intent(out) :: Auv(:)
    integer, optional, intent(in) :: id_in
    double precision, optional, intent(out) :: Aerr(0:rmax)
    logical :: eflag
    
    if (n.ne.1) then
      call seterrflag_cll(-10)
      call errout_cll('TN_cll','subroutine called with inconsistent arguments',eflag)
      return
    end if
    if (n.gt.nmax_cll) then
      call seterrflag_cll(-10)
      call errout_cll('TN_cll','argument N larger than Nmax_cll',eflag,.true.)
      write(nerrout_cll,*) 'N        =',n
      write(nerrout_cll,*) 'Nmax_cll =',nmax_cll
      write(nerrout_cll,*) 'Reinitialize COLLIER with Nmax_cll >= ',n
      call propagateerrflag_cll
      return
    end if    
    if (rmax.gt.rmax_cll) then
      call seterrflag_cll(-10)
      call errout_cll('TN_cll','argument rmax larger than rmax_cll',eflag,.true.)
      write(nerrout_cll,*) 'rmax     =',rmax
      write(nerrout_cll,*) 'rmax_cll =',rmax_cll
      write(nerrout_cll,*) 'Reinitialize COLLIER with rmax_cll >= ',rmax
      call propagateerrflag_cll
      return
    end if    
    
    call t1_checked_cll(a,auv,masses2,n,rmax,aerr,id_in)
 

tn_main_cll()

subroutine collier_coefs::tn_cll::tn_main_cll	(	double complex, dimension(:), intent(out)	TN,
		double complex, dimension(:), intent(out)	TNuv,
		double complex, dimension(:), intent(in)	MomInv,
		double complex, dimension(0:), intent(in)	masses2,
		integer, intent(in)	N,
		integer, intent(in)	rmax,
		double precision, dimension(0:), intent(out), optional	TNerr,
		integer, intent(in), optional	id_in,
		double precision, dimension(0:), intent(out), optional	TNerr2
	)

Definition at line 3508 of file collier_coefs.F90.

 
    integer, intent(in) :: N,rmax
    double complex, intent(in) :: MomInv(:), masses2(0:)
    double complex, intent(out) :: TN(:)
    double complex, intent(out) :: TNuv(:)
    integer, optional, intent(in) :: id_in
    double precision, optional, intent(out) :: TNerr(0:),TNerr2(0:)
    logical :: eflag
 
    if (n.eq.1) then
      call seterrflag_cll(-10)
      call errout_cll('TN_cll','subroutine called with wrong number of arguments for N=1',eflag,.true.)
      call propagateerrflag_cll
      return
    end if    
    if (n.gt.nmax_cll) then
      call seterrflag_cll(-10)
      call errout_cll('TN_cll','argument N larger than Nmax_cll',eflag,.true.)
      write(nerrout_cll,*) 'N        =',n
      write(nerrout_cll,*) 'Nmax_cll =',nmax_cll
      write(nerrout_cll,*) 'Reinitialize COLLIER with Nmax_cll >= ',n
      call propagateerrflag_cll
      return
    end if    
    if (rmax.gt.rmax_cll) then
      call seterrflag_cll(-10)
      call errout_cll('TN_cll','argument rmax larger than rmax_cll',eflag,.true.)
      write(nerrout_cll,*) 'rmax     =',rmax
      write(nerrout_cll,*) 'rmax_cll =',rmax_cll
      write(nerrout_cll,*) 'Reinitialize COLLIER with rmax_cll >= ',rmax
      call propagateerrflag_cll
      return
    end if    
    
    call tn_main_checked_cll(tn,tnuv,mominv,masses2,n,rmax,tnerr,id_in,tnerr2)
 

---

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

• MELA/COLLIER/colliertmp/COLLIER-1.2/src/collier_coefs.F90