bug in hypoDD

[JanWiszniowski]

Dear Felix,
I found the bug in hypoDD. An empty line after * ID in the hypoDD input file causes the creation of a nonzero number of ncusp (number of event keys in icusp). The list of events to relocate (icusp) is, of course, unpredictable. This happens because, before the reading command, you don't reset the variable i. This results in no event being considered.

I fixed that by adding a line in getinp2.f to reset the i variable. Below is the patch:

251a252

                i = 0

Best regards,
Jan Wiszniowski

[AndyMighty]

Dear JanWiszniowski,
Im compiling hypoDD , but got some bug about "Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)". How can you fix it ?
Im using WSL 24.4.01 LTS

[JanWiszniowski]

Dear Andy, I use     'GNU Fortran (Ubuntu 11.4.0-1ubuntu1~22.04.2) 11.4.0     Copyright (C) 2021 Free Software Foundation, Inc.' I received similar messages ('Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)'), but, as they were treated as warnings, I ignored them. Maybe your compiler is too new. Check if there are any compiler flags to force the compilation of the older Fortran version than 2018. Otherwise, you must modify all those cases in the code, e.g. Instead of 10 i = 10 it should be i = 10 10 continue With regards Janek

…

________________________________ Od: AndyMighty ***@***.***> Wysłane: niedziela, 14 grudnia 2025 03:08 Do: fwaldhauser/HypoDD ***@***.***> DW: Jan Wiszniowski ***@***.***>; Author ***@***.***> Temat: Re: [fwaldhauser/HypoDD] bug in hypoDD (Issue #2) UWAGA: Ta wiadomość e-mail pochodzi spoza organizacji. Nie klikaj linków ani nie otwieraj załączników, chyba że rozpoznajesz nadawcę i wiesz, że zawartość jest bezpieczna. | CAUTION: This email originated from outside of the organization. Do not click links or open attachments unless you recognize the sender and know the content is safe. [https://avatars.githubusercontent.com/u/177500680?s=20&v=4]AndyMighty left a comment (fwaldhauser/HypoDD#2)<#2 (comment)> Dear JanWiszniowski, Im compiling hypoDD , but got some bug about "Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)". How can you fix it ? Im using WSL 24.4.01 LTS — Reply to this email directly, view it on GitHub<#2 (comment)>, or unsubscribe<https://github.com/notifications/unsubscribe-auth/AOO2B7ZZO3HXHGPKWHXHZQL4BTBBRAVCNFSM6AAAAACD2PEP26VHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZTMNJQGA2TSOJZGE>. You are receiving this because you authored the thread.Message ID: ***@***.***>

[AndyMighty]

Dear Andy,
I use
    'GNU Fortran (Ubuntu 11.4.0-1ubuntu1~22.04.2) 11.4.0
    Copyright (C) 2021 Free Software Foundation, Inc.'
I received similar messages
('Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)'),
but, as they were treated as warnings, I ignored them.
Maybe your compiler is too new. Check if there are any compiler flags to force the compilation of the older Fortran version than 2018.
Otherwise, you must modify all those cases in the code, e.g.

Instead of

10 i = 10

it should be

         i = 10

10 continue

With regards
Janek
…

Thank you, Mr. JanWiszniowski. I compiled that file. like you said, its not bug, it treated. thank for your reply.