aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Zhang-Suen-thinning-algorithm/Fortran/zhang-suen-thinning-algorithm-2.f

2 lines
50 B
FortranFixed
Raw Permalink Normal View History

September 2017 Update
2017-09-23 10:01:46 +02:00
A(2:N - 1) = (A(1:N - 2) + A(2:N - 1) + A(3:N))/3
Reference in a new issue Copy permalink