From 51e40faa26a05f9b5e7e1b2d6ee5a64d4683f1b5 Mon Sep 17 00:00:00 2001 From: Olivia Appleton Date: Tue, 1 Oct 2024 01:47:52 -0500 Subject: [PATCH] Add prime_factor, is_prime, is_composite in prep for p3 (3) --- fortran/src/include/primes.f90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/fortran/src/include/primes.f90 b/fortran/src/include/primes.f90 index 2db95365..7648b2be 100644 --- a/fortran/src/include/primes.f90 +++ b/fortran/src/include/primes.f90 @@ -109,11 +109,9 @@ integer(i18t) function is_composite(num) result(factor) endif end function - logical(i18t) function is_prime(num) result(ip) + logical function is_prime(num) result(ip) integer(i18t), intent(in) :: num integer(i18t) check - logical :: ip - localnum = num if (num < 2) then ip = .false. elseif (num <= 3) then