part 2
Recn=0
do
write (unit=*,fmt="(2x'enter name ')",advance="no")
read (unit=*,fmt=*) Name
if (Name=="end") then
exit
else
Recn=Recn+1
write (unit=*,fmt="(2x'enter no,note ')",advance="no")
read (unit=*,fmt=*) Number,Note
end if
write (unit=1,fmt="(a5,2f15.3)",rec=Recn) Name,Number,Note
end do
print *,"Input ended"
Previous slide
Next slide
Back to first slide
View graphic version