lukasplevac/easyconfigs-it4i
1
0
Fork 0
mirror of https://code.it4i.cz/sccs/easyconfigs-it4i.git synced 2025-04-18 20:50:49 +01:00
Code Issues Packages Projects Releases Wiki Activity
easyconfigs-it4i/m/MRCC/mrcc_files/list_doublets_rangesep.f
Lukas Krupcik eb1ea94130 merge master
2024-07-25 10:27:17 +02:00

458 lines
12 KiB
Fortran
Executable File
Raw Blame History

if(iunc.and.kunc) then ! uncontracted DF basis
if(iang.eq.0) then
if(kang.eq.0) then
call s_s_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.1) then
call s_p_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.2) then
call s_d_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.3) then
call s_f_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.4) then
call s_g_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.5) then
call s_h_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.6) then
call s_i_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
else
goto 23
endif
elseif(iang.eq.1) then
if(kang.eq.0) then
call p_s_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.1) then
call p_p_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.2) then
call p_d_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.3) then
call p_f_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.4) then
call p_g_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.5) then
call p_h_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.6) then
call p_i_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
else
goto 23
endif
elseif(iang.eq.2) then
if(kang.eq.0) then
call d_s_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.1) then
call d_p_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.2) then
call d_d_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.3) then
call d_f_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.4) then
call d_g_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.5) then
call d_h_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.6) then
call d_i_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
else
goto 23
endif
elseif(iang.eq.3) then
if(kang.eq.0) then
call f_s_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.1) then
call f_p_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.2) then
call f_d_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.3) then
call f_f_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.4) then
call f_g_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.5) then
call f_h_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.6) then
call f_i_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
else
goto 23
endif
elseif(iang.eq.4) then
if(kang.eq.0) then
call g_s_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.1) then
call g_p_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.2) then
call g_d_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.3) then
call g_f_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.4) then
call g_g_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.5) then
call g_h_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.6) then
call g_i_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
else
goto 23
endif
elseif(iang.eq.5) then
if(kang.eq.0) then
call h_s_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.1) then
call h_p_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.2) then
call h_d_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.3) then
call h_f_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.4) then
call h_g_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.5) then
call h_h_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.6) then
call h_i_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
else
goto 23
endif
elseif(iang.eq.6) then
if(kang.eq.0) then
call i_s_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.1) then
call i_p_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.2) then
call i_d_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.3) then
call i_f_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.4) then
call i_g_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.5) then
call i_h_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
elseif(kang.eq.6) then
call i_i_tc_uc_rangesep(boys,omega,
#include "df2intvars_uc.f"
goto 12
else
goto 23
endif
else
goto 23
endif
else ! contraction necessary
if(iang.eq.0) then
if(kang.eq.0) then
call s_s_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.1) then
call s_p_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.2) then
call s_d_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.3) then
call s_f_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.4) then
call s_g_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.5) then
call s_h_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.6) then
call s_i_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
else
goto 23
endif
elseif(iang.eq.1) then
if(kang.eq.0) then
call p_s_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.1) then
call p_p_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.2) then
call p_d_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.3) then
call p_f_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.4) then
call p_g_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.5) then
call p_h_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.6) then
call p_i_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
else
goto 23
endif
elseif(iang.eq.2) then
if(kang.eq.0) then
call d_s_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.1) then
call d_p_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.2) then
call d_d_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.3) then
call d_f_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.4) then
call d_g_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.5) then
call d_h_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.6) then
call d_i_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
else
goto 23
endif
elseif(iang.eq.3) then
if(kang.eq.0) then
call f_s_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.1) then
call f_p_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.2) then
call f_d_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.3) then
call f_f_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.4) then
call f_g_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.5) then
call f_h_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.6) then
call f_i_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
else
goto 23
endif
elseif(iang.eq.4) then
if(kang.eq.0) then
call g_s_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.1) then
call g_p_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.2) then
call g_d_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.3) then
call g_f_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.4) then
call g_g_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.5) then
call g_h_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.6) then
call g_i_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
else
goto 23
endif
elseif(iang.eq.5) then
if(kang.eq.0) then
call h_s_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.1) then
call h_p_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.2) then
call h_d_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.3) then
call h_f_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.4) then
call h_g_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.5) then
call h_h_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.6) then
call h_i_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
else
goto 23
endif
elseif(iang.eq.6) then
if(kang.eq.0) then
call i_s_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.1) then
call i_p_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.2) then
call i_d_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.3) then
call i_f_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.4) then
call i_g_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.5) then
call i_h_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
elseif(kang.eq.6) then
call i_i_tc_rangesep(boys,omega,
#include "df2intvars.f"
goto 12
else
goto 23
endif
else
goto 23
endif
endif ! contraction
Reference in New Issue View Git Blame Copy Permalink