test_coca_binomial.f90
cd1286e2d410improved_sugama

test_coca_binomial.f90
View Options

			program test_coca_binomial
			use FMZM
			use COCA, only: Run_Test
			implicit none
			integer, parameter :: BIN_TEST_IDX = 1
			logical, parameter :: NO_FAIL_STOP = .true.
			call FM_SET(36)
			call Run_Test( NO_FAIL_STOP, BIN_TEST_IDX )
			end program test_coca_binomial