jj2lsj_code.f90 File Reference

Data Types
type	jj2lsj_code::nl
type	jj2lsj_code::cs_function_ls
type	jj2lsj_code::csf_basis_ls
type	jj2lsj_code::as_function_ls
type	jj2lsj_code::asf_basis_ls
type	jj2lsj_code::parent_from_jj
type	jj2lsj_code::lsj_list

Modules
module	jj2lsj_code

Functions/Subroutines
subroutine, public	jj2lsj_code::asf2ls (iw1, ithresh, levmax, IBLKNUM, levels, NCFMIN, NCFMAX)
real(double) function, public	jj2lsj_code::coeflsjj (l_shell, N, w, Q, L, S, J, jm_shell, Nm, Qm, Jm, jp_shell, Qp, Jp)
real(double) function, private	jj2lsj_code::coeflsjj2 (l_shell, L, S, J, jm_shell, jp_shell)
real(double) function, private	jj2lsj_code::coeflsjjs (lshell, N, w, Q, L, S, J, Nm, Qm, Jm, Qp, Jp)
subroutine, public	jj2lsj_code::dallocasfls (asf_set_LS)
subroutine, public	jj2lsj_code::getchls (csf_number, shell_number, string_LS, string_XLS)
subroutine, public	jj2lsj_code::getxj
subroutine, public	jj2lsj_code::gettermls (l_shell, N, LS, number)
subroutine, public	jj2lsj_code::inscreen (THRESH, levels, number_of_levels, ioutC, ioutj, UNIQUE)
subroutine, public	jj2lsj_code::inscreenlev (record, levels, number_of_levels, fail)
subroutine, public	jj2lsj_code::jj2lsj
subroutine, public	jj2lsj_code::packlscsf (csf_set_LS, csf_number, string_CSF)
subroutine, public	jj2lsj_code::prcsfjj (stream, csf_number, csf_number_local)
subroutine, public	jj2lsj_code::prcsfls (stream, csf_set_LS, csf_number)
subroutine, public	jj2lsj_code::prcsflsall (stream, csf_set_LS, Before_J)
subroutine, private	jj2lsj_code::setls (ithresh, NCFMIN, NCFMAX)
subroutine	setls_action (tip, irez)
subroutine	setls_add_quantum_numbers ()
recursive subroutine	setls_job_count (isubc, rez)
logical function	setls_equivalent_csfs (ncsf1, ncsf2)
real(double) function, public	jj2lsj_code::tralsjj (jj_number, LS_number)
real(double) function, public	jj2lsj_code::tralsjjmp (shell_number, jj_number, LS_number)
subroutine, private	jj2lsj_code::uniquelsj

Variables
type(asf_basis_ls), public	jj2lsj_code::asf_set_ls
integer, private	jj2lsj_code::imincompoff
integer, dimension(:,:), pointer	jj2lsj_code::jcoup
real(double)	jj2lsj_code::epsnew
real(double)	jj2lsj_code::mincomp
character(len=1), dimension(0:20), parameter, private	jj2lsj_code::l_string = (/ "S","P","D","F","G","H","I","K","L","M","N","O","Q", "R","T","U","V","W","X","Y","Z" /)
integer, parameter	jj2lsj_code::blocks_number = 20
integer, parameter	jj2lsj_code::vectors_number = 100000

Function/Subroutine Documentation

setls_action()

subroutine setls::setls_action	(	integer	tip,
		integer	irez
	)

Here is the call graph for this function:

Here is the caller graph for this function:

setls_add_quantum_numbers()

subroutine setls::setls_add_quantum_numbers

(

)

Here is the caller graph for this function:

setls_equivalent_csfs()

logical function setls::setls_equivalent_csfs	(	integer	ncsf1,
		integer	ncsf2
	)

Here is the caller graph for this function:

setls_job_count()

recursive subroutine setls::setls_job_count	(	integer	isubc,
		integer	rez
	)

Here is the call graph for this function:

Here is the caller graph for this function: