algorithm-archive icon indicating copy to clipboard operation
algorithm-archive copied to clipboard

Use the * format in Fortran READ statements

Open Beliavsky opened this issue 4 years ago • 5 comments

I see that there have been some Fortran codes submitted but that Fortran is not available as an option on the site. Looking at the code interactive_euclidean.f90 , I suggest that

READ(*, '(i10)', iostat=ioerror) temp_a, temp_b

be replaced by

READ(*, *, iostat=ioerror) temp_a, temp_b

which will work even if the user enters two numbers on the same line before pressing Enter.

Beliavsky avatar Nov 07 '21 15:11 Beliavsky

I'm not sure what you mean by not available on the site, right not there's only one chapter that has Fortran code : https://www.algorithm-archive.org/contents/euclidean_algorithm/euclidean_algorithm.html.

If you know Fortran feel free to open PRs about it!

ShadowMitia avatar Nov 07 '21 16:11 ShadowMitia

Like @ShadowMitia We only have fortran code when it is submitted by community members. The only other fortran PR is #638. I am a big fan of fortran, so I would be happy to see more. If you want to create a PR about this change, feel free to do so and it will be quickly merged (I think)

leios avatar Nov 07 '21 17:11 leios

I have to check later, but there's definitely more Fortran code in the AAA. E.g. Euler and velocity-verlet. (Basically search for PRs by me)

Regarding the initial issue. I have to check that later as well. IIRC that (i10) "enforces" an integer number as input, which was kind of the intention back then.

depate avatar Nov 07 '21 22:11 depate

@depate You're right, I'm just blind I guess...

ShadowMitia avatar Nov 07 '21 22:11 ShadowMitia

Yeah, I think I have become more lax on type specifiers. I find them really useful for me, but I guess if other people don't think that's the case, we can remove them

leios avatar Nov 08 '21 06:11 leios