30 lines
543 B
FortranFixed
30 lines
543 B
FortranFixed
|
c Fortran version of a Prime Number Finder
|
||
|
c haplo@mindstab.net
|
||
|
|
||
|
program primes
|
||
|
implicit none
|
||
|
real test, i;
|
||
|
integer isPrime, amax, cnt;
|
||
|
character *32 buff;
|
||
|
if (iargc() >= 1) then
|
||
|
call getarg(1, buff);
|
||
|
read(buff, *) amax;
|
||
|
else
|
||
|
print*, "Useage: primesf [Max Num]";
|
||
|
return
|
||
|
endif
|
||
|
|
||
|
do cnt = 3, amax, + 2
|
||
|
test = sqrt(float(cnt));
|
||
|
isPrime=1;
|
||
|
do test = 3, test, +2
|
||
|
if (mod(cnt, test) == 0) then
|
||
|
isPrime=0;
|
||
|
exit;
|
||
|
endif
|
||
|
enddo
|
||
|
if(isPrime /= 0) print*,cnt
|
||
|
c if(isPrime /= 0) write(*,'(I3.1)'),cnt
|
||
|
enddo
|
||
|
end
|