Подредактировать код

Имеется код для задания, но выдает несколько ошибок по типу:
RKFS.f90:366:2:
366 | y(1:neqn) = f1(1:neqn)
| 1
Error: ‘y’ at (1) is not a variable
RKFS.f90:344:9:
344 | hfaild = .true.
| 1
Error: Cannot convert LOGICAL(4) to REAL(4) at (1)
RKFS.f90:345:9:
345 | output = .false.
| 1
Error: Cannot convert LOGICAL(4) to REAL(4) at (1)
RKFS.f90:360:9:
360 | go to 200
| 1
Error: Label 200 referenced at (1) is never defined
RKFS.f90:377:4:
377 | if ( hfaild ) then
| 1
Error: IF clause at (1) requires a scalar LOGICAL expression
RKFS.f90:383:4:
383 | if ( output ) then
| 1
Error: IF clause at (1) requires a scalar LOGICAL expression
RKFS.f90:388:26:
388 | if ( iflag > 0 ) go to 100
| 1
Error: Label 100 referenced at (1) is never defined
Подправить код, чтобы устранить ошибки