aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

35
Task/Pi/Fortran/pi-1.f
View file

@ -1,15 +1,20 @@
Coded by Stanley Rabinowitz, 12 Vine Brook Road, Westford MA, 01886-4212.
INTEGER VECT(3350),BUFFER(201)
DATA VECT/3350*2/,MORE/0/
DO 2 N = 1,201
KARRAY = 0
DO 3 L = 3350,1,-1
NUM = 100000*VECT(L) + KARRAY*L
KARRAY = NUM/(2*L - 1)
3 VECT(L) = NUM - KARRAY*(2*L - 1)
K = KARRAY/100000
BUFFER(N) = MORE + K
2 MORE = KARRAY - K*100000
WRITE (*,100) BUFFER
100 FORMAT (I2,"."/(1X,10I5.5))
END
program pi
implicit none
integer,dimension(3350) :: vect
integer,dimension(201) :: buffer
integer :: more,karray,num,k,l,n
more = 0
vect = 2
do n = 1,201
karray = 0
do l = 3350,1,-1
num = 100000*vect(l) + karray*l
karray = num/(2*l - 1)
vect(l) = num - karray*(2*l - 1)
end do
k = karray/100000
buffer(n) = more + k
more = karray - k*100000
end do
write (*,'(i2,"."/(1x,10i5.5))') buffer
end program pi