Can not so I checked it, but come on if you can help me
how to count the number of lines in Godea.txt.
With this number I made ??a new loop, and then doing what I tried.
if you put the loop
broj=0
DO 100 j=1,N
broj=broj+1
if (broj.EQ.N) then
write (22,*) frima,sat,min,sek
else
end if
end do...