<commit_before>!	Capt'n OPER General
!	program for testing
!	the good stuff is in gencap.f90
!	runs the capture code one isotope at a time, letting the user sum the total later
!	to compile this version of main, switch out 'MAIN = main.o' for 'MAIN = mainOper.o' in the make file (line 8)

PROGRAM GENCAP
	implicit none
	character*300 :: modfile, filename
	double precision :: mx, jx, maxcapped
	double precision :: capped
	integer :: niso, i, iso, cpl
	character (len=5) :: cplConsts(14) = [character(len=5) :: "c1-0", "c3-0", "c4-0", "c5-0", "c6-0", "c7-0", &
											"c8-0", "c9-0", "c10-0", "c11-0", "c12-0", "c13-0", "c14-0", "c15-0"]

	
	! modfile = "Aarons_Model_Cuts/struct_b16_agss09_nohead.dat"
	modfile = "solarmodels/struct_b16_agss09_reduce10_nohead.dat"
	niso = 16
	jx = 0.5
	iso = 0 !force captnoper to run and sum all isotopes

	call captn_init(modfile, 0.4d0, 220.d0, 220.d0, 540.d0)
	call captn_init_oper()
	filename = "testfile_oper"
	open(55,file=filename)
	do cpl=1, 14
		write(55,*) cplConsts(cpl)
		if (cpl==1) then
			call populate_array(1.65d-8, cpl, 0)
		else
			call populate_array(1.65d-8, cpl+1, 0)
		endif
		
		call captn_maxcap(mx, maxcapped)
		print*, "Running coupling constant: ", cplConsts(cpl)
		print*, "maximum captured", maxcapped
		print*

		mx = 5
		call captn_oper(mx,jx,niso,iso,capped)
		print*, "mx: ",mx, "GeV, capped: ",capped
		write(55,*) mx, capped

		mx = 50
		call captn_oper(mx,jx,niso,iso,capped)
		print*, "mx: ",mx, "GeV, capped: ",capped
		write(55,*) mx, capped

		mx = 500
		call captn_oper(mx,jx,niso,iso,capped)
		print*, "mx: ",mx, "GeV, capped: ",capped
		write(55,*) mx, capped
		write(55,*)
		if (cpl==1) then
			call populate_array(0, cpl, 0)
		else
			call populate_array(0, cpl+1, 0)
		endif
	end do
	close(55)
END PROGRAM GENCAP<commit_msg>fixed maxcap display and reformatted test file<commit_after>!	Capt'n OPER General
!	program for testing
!	the good stuff is in gencap.f90
!	runs the capture code one isotope at a time, letting the user sum the total later
!	to compile this version of main, switch out 'MAIN = main.o' for 'MAIN = mainOper.o' in the make file (line 8)

PROGRAM GENCAP
	implicit none
	character*300 :: modfile, filename
	double precision :: mx, jx, maxcapped
	double precision :: capped
	integer :: niso, i, iso, cpl
	character (len=5) :: cplConsts(14) = [character(len=5) :: "c1-0", "c3-0", "c4-0", "c5-0", "c6-0", "c7-0", &
											"c8-0", "c9-0", "c10-0", "c11-0", "c12-0", "c13-0", "c14-0", "c15-0"]

	
	! modfile = "Aarons_Model_Cuts/struct_b16_agss09_nohead.dat"
	modfile = "solarmodels/struct_b16_agss09_reduce10_nohead.dat"
	niso = 16
	jx = 0.5
	iso = 0 !force captnoper to run and sum all isotopes

	call captn_init(modfile, 0.4d0, 220.d0, 220.d0, 540.d0)
	call captn_init_oper()
	filename = "testfile_oper"
	open(55,file=filename)
	do cpl=1, 14
		write(55,*) cplConsts(cpl)
		if (cpl==1) then
			call populate_array(1.65d-8, cpl, 0)
		else
			call populate_array(1.65d-8, cpl+1, 0)
		endif
		
		print*, "Running coupling constant: ", cplConsts(cpl)
		print*

		mx = 5
		call captn_maxcap(mx, maxcapped)
		call captn_oper(mx,jx,niso,iso,capped)
		print*, "mx: ",mx, "maximum captured", maxcapped
		print*, "GeV, capped: ",capped
		write(55,*) mx, maxcapped, capped

		mx = 50
		call captn_maxcap(mx, maxcapped)
		call captn_oper(mx,jx,niso,iso,capped)
		print*, "mx: ",mx, "maximum captured", maxcapped
		print*, "GeV, capped: ",capped
		write(55,*) mx, maxcapped, capped

		mx = 500
		call captn_maxcap(mx, maxcapped)
		call captn_oper(mx,jx,niso,iso,capped)
		print*, "mx: ",mx, "maximum captured", maxcapped
		print*, "GeV, capped: ",capped
		write(55,*) mx, maxcapped, capped
		write(55,*)
		
		if (cpl==1) then
			call populate_array(0, cpl, 0)
		else
			call populate_array(0, cpl+1, 0)
		endif
	end do
	close(55)
END PROGRAM GENCAP
{'fraction_non_alphanumeric': 0.14858183710642728, 'fraction_numerical': 0.05984907624251887, 'mean_word_length': 4.104913678618858, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7004122', 'n_tokens_mistral': 1864, 'n_tokens_neox': 1618, 'n_words': 432}