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

1318 lines
28 KiB
Fortran
Executable File
Raw Blame History

if(kc) then
if(iang.eq.0) then
if(kang.eq.0) then
call sss_kc_IN_der(
$6,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.1) then
call ssp_kc_IN_der(
$18,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.2) then
call ssd_kc_IN_der(
$30,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.3) then
call ssf_kc_IN_der(
$42,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.4) then
call ssg_kc_IN_der(
$54,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.5) then
call ssh_kc_IN_der(
$66,
#include "dfvariables_der_IN.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(iang.eq.1) then
if(jang.eq.0) then
if(kang.eq.0) then
call pss_kc_OUT_der(
$16,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.1) then
call psp_kc_OUT_der(
$48,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.2) then
call psd_kc_OUT_der(
$80,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.3) then
call psf_kc_OUT_der(
$112,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.4) then
call psg_kc_OUT_der(
$144,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.5) then
call psh_kc_OUT_der(
$176,
#include "dfvariables_der_OUT.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.1) then
if(kang.eq.0) then
call pps_kc_OUT_der(
$39,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.1) then
call ppp_kc_OUT_der(
$117,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.2) then
call ppd_kc_OUT_der(
$195,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.3) then
call ppf_kc_OUT_der(
$273,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.4) then
call ppg_kc_OUT_der(
$351,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.5) then
call pph_kc_OUT_der(
$429,
#include "dfvariables_der_OUT.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
endif !jang
elseif(iang.eq.2) then
if(jang.eq.0) then
if(kang.eq.0) then
call dss_kc_OUT_der(
$29,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.1) then
call dsp_kc_OUT_der(
$87,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.2) then
call dsd_kc_OUT_der(
$145,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.3) then
call dsf_kc_OUT_der(
$203,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.4) then
call dsg_kc_OUT_der(
$261,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.5) then
call dsh_kc_OUT_der(
$319,
#include "dfvariables_der_OUT.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.1) then
if(kang.eq.0) then
call dps_kc_OUT_der(
$65,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.1) then
call dpp_kc_OUT_der(
$195,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.2) then
call dpd_kc_OUT_der(
$325,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.3) then
call dpf_kc_OUT_der(
$455,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.4) then
call dpg_kc_OUT_der(
$585,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.5) then
call dph_kc_OUT_der(
$715,
#include "dfvariables_der_OUT.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.2) then
if(kang.eq.0) then
call dds_kc_IN_der(
$150,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.1) then
call ddp_kc_IN_der(
$450,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.2) then
call ddd_kc_IN_der(
$750,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.3) then
call ddf_kc_IN_der(
$1050,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.4) then
call ddg_kc_IN_der(
$1350,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.5) then
call ddh_kc_IN_der(
$1650,
#include "dfvariables_der_IN.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
endif !jang
elseif(iang.eq.3) then
if(jang.eq.0) then
if(kang.eq.0) then
call fss_kc_OUT_der(
$46,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.1) then
call fsp_kc_OUT_der(
$138,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.2) then
call fsd_kc_OUT_der(
$230,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.3) then
call fsf_kc_OUT_der(
$322,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.4) then
call fsg_kc_OUT_der(
$414,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.5) then
call fsh_kc_OUT_der(
$506,
#include "dfvariables_der_OUT.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.1) then
if(kang.eq.0) then
call fps_kc_OUT_der(
$98,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.1) then
call fpp_kc_OUT_der(
$294,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.2) then
call fpd_kc_OUT_der(
$490,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.3) then
call fpf_kc_OUT_der(
$686,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.4) then
call fpg_kc_OUT_der(
$882,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.5) then
call fph_kc_OUT_der(
$1078,
#include "dfvariables_der_OUT.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.2) then
if(kang.eq.0) then
call fds_kc_IN_der(
$210,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.1) then
call fdp_kc_IN_der(
$630,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.2) then
call fdd_kc_IN_der(
$1050,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.3) then
call fdf_kc_IN_der(
$1470,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.4) then
call fdg_kc_IN_der(
$1890,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.5) then
call fdh_kc_IN_der(
$2310,
#include "dfvariables_der_IN.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.3) then
if(kang.eq.0) then
call ffs_kc_IN_der(
$294,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.1) then
call ffp_kc_IN_der(
$882,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.2) then
call ffd_kc_IN_der(
$1470,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.3) then
call fff_kc_IN_der(
$2058,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.4) then
call ffg_kc_IN_der(
$2646,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.5) then
call ffh_kc_IN_der(
$3234,
#include "dfvariables_der_IN.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
endif !jang
elseif(iang.eq.4) then
if(jang.eq.0) then
if(kang.eq.0) then
call gss_kc_OUT_der(
$67,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.1) then
call gsp_kc_OUT_der(
$201,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.2) then
call gsd_kc_OUT_der(
$335,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.3) then
call gsf_kc_OUT_der(
$469,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.4) then
call gsg_kc_OUT_der(
$603,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.5) then
call gsh_kc_OUT_der(
$737,
#include "dfvariables_der_OUT.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.1) then
if(kang.eq.0) then
call gps_kc_OUT_der(
$138,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.1) then
call gpp_kc_OUT_der(
$414,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.2) then
call gpd_kc_OUT_der(
$690,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.3) then
call gpf_kc_OUT_der(
$966,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.4) then
call gpg_kc_OUT_der(
$1242,
#include "dfvariables_der_OUT.f"
$)
goto 1235
elseif(kang.eq.5) then
call gph_kc_OUT_der(
$1518,
#include "dfvariables_der_OUT.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.2) then
if(kang.eq.0) then
call gds_kc_IN_der(
$270,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.1) then
call gdp_kc_IN_der(
$810,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.2) then
call gdd_kc_IN_der(
$1350,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.3) then
call gdf_kc_IN_der(
$1890,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.4) then
call gdg_kc_IN_der(
$2430,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.5) then
call gdh_kc_IN_der(
$2970,
#include "dfvariables_der_IN.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.3) then
if(kang.eq.0) then
call gfs_kc_IN_der(
$378,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.1) then
call gfp_kc_IN_der(
$1134,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.2) then
call gfd_kc_IN_der(
$1890,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.3) then
call gff_kc_IN_der(
$2646,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.4) then
call gfg_kc_IN_der(
$3402,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.5) then
call gfh_kc_IN_der(
$4158,
#include "dfvariables_der_IN.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.4) then
if(kang.eq.0) then
call ggs_kc_IN_der(
$486,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.1) then
call ggp_kc_IN_der(
$1458,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.2) then
call ggd_kc_IN_der(
$2430,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.3) then
call ggf_kc_IN_der(
$3402,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.4) then
call ggg_kc_IN_der(
$4374,
#include "dfvariables_der_IN.f"
$)
goto 1235
elseif(kang.eq.5) then
call ggh_kc_IN_der(
$5346,
#include "dfvariables_der_IN.f"
$)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
endif !jang
else !iang.gt.5
#include "dprimcalc_call.f"
endif !iang
else !kc
if(iang.eq.0) then
if(kang.eq.0) then
call sss_IN_der(
$6,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call ssp_IN_der(
$18,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call ssd_IN_der(
$30,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call ssf_IN_der(
$42,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call ssg_IN_der(
$54,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call ssh_IN_der(
$66,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(iang.eq.1) then
if(jang.eq.0) then
if(kang.eq.0) then
call pss_OUT_der(
$16,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call psp_OUT_der(
$48,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call psd_OUT_der(
$80,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call psf_OUT_der(
$112,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call psg_OUT_der(
$144,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call psh_OUT_der(
$176,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.1) then
if(kang.eq.0) then
call pps_OUT_der(
$39,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call ppp_OUT_der(
$117,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call ppd_OUT_der(
$195,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call ppf_OUT_der(
$273,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call ppg_OUT_der(
$351,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call pph_OUT_der(
$429,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
endif !jang
elseif(iang.eq.2) then
if(jang.eq.0) then
if(kang.eq.0) then
call dss_OUT_der(
$29,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call dsp_OUT_der(
$87,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call dsd_OUT_der(
$145,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call dsf_OUT_der(
$203,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call dsg_OUT_der(
$261,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call dsh_OUT_der(
$319,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.1) then
if(kang.eq.0) then
call dps_OUT_der(
$65,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call dpp_OUT_der(
$195,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call dpd_OUT_der(
$325,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call dpf_OUT_der(
$455,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call dpg_OUT_der(
$585,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call dph_OUT_der(
$715,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.2) then
if(kang.eq.0) then
call dds_IN_der(
$150,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call ddp_IN_der(
$450,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call ddd_IN_der(
$750,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call ddf_IN_der(
$1050,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call ddg_IN_der(
$1350,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call ddh_IN_der(
$1650,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
endif !jang
elseif(iang.eq.3) then
if(jang.eq.0) then
if(kang.eq.0) then
call fss_OUT_der(
$46,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call fsp_OUT_der(
$138,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call fsd_OUT_der(
$230,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call fsf_OUT_der(
$322,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call fsg_OUT_der(
$414,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call fsh_OUT_der(
$506,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.1) then
if(kang.eq.0) then
call fps_OUT_der(
$98,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call fpp_OUT_der(
$294,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call fpd_OUT_der(
$490,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call fpf_OUT_der(
$686,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call fpg_OUT_der(
$882,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call fph_OUT_der(
$1078,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.2) then
if(kang.eq.0) then
call fds_IN_der(
$210,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call fdp_IN_der(
$630,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call fdd_IN_der(
$1050,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call fdf_IN_der(
$1470,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call fdg_IN_der(
$1890,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call fdh_IN_der(
$2310,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.3) then
if(kang.eq.0) then
call ffs_IN_der(
$294,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call ffp_IN_der(
$882,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call ffd_IN_der(
$1470,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call fff_IN_der(
$2058,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call ffg_IN_der(
$2646,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call ffh_IN_der(
$3234,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
endif !jang
elseif(iang.eq.4) then
if(jang.eq.0) then
if(kang.eq.0) then
call gss_OUT_der(
$67,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call gsp_OUT_der(
$201,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call gsd_OUT_der(
$335,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call gsf_OUT_der(
$469,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call gsg_OUT_der(
$603,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call gsh_OUT_der(
$737,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.1) then
if(kang.eq.0) then
call gps_OUT_der(
$138,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call gpp_OUT_der(
$414,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call gpd_OUT_der(
$690,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call gpf_OUT_der(
$966,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call gpg_OUT_der(
$1242,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call gph_OUT_der(
$1518,
$dfgcn,
#include "dfvariables_der_OUT.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.2) then
if(kang.eq.0) then
call gds_IN_der(
$270,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call gdp_IN_der(
$810,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call gdd_IN_der(
$1350,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call gdf_IN_der(
$1890,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call gdg_IN_der(
$2430,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call gdh_IN_der(
$2970,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.3) then
if(kang.eq.0) then
call gfs_IN_der(
$378,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call gfp_IN_der(
$1134,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call gfd_IN_der(
$1890,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call gff_IN_der(
$2646,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call gfg_IN_der(
$3402,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call gfh_IN_der(
$4158,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
elseif(jang.eq.4) then
if(kang.eq.0) then
call ggs_IN_der(
$486,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.1) then
call ggp_IN_der(
$1458,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.2) then
call ggd_IN_der(
$2430,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.3) then
call ggf_IN_der(
$3402,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.4) then
call ggg_IN_der(
$4374,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
elseif(kang.eq.5) then
call ggh_IN_der(
$5346,
$dfgcn,
#include "dfvariables_der_IN.f"
$,gck,kp)
goto 1235
else ! kang.gt.6
#include "dprimcalc_call.f"
endif !kang
endif !jang
else !iang.gt.5
#include "dprimcalc_call.f"
endif !iang
endif !kc
Reference in New Issue View Git Blame Copy Permalink