Похоже, что ваша программа пыталась записать файл с именем stop.in
на устройстве 48 и столкнулась с проблемой.Наиболее вероятная причина этого заключается в том, что этот файл не существует при выполнении оператора WRITE, что, в свою очередь, указывает на то, что инструкция OPEN для «прикрепления» этого файла к блоку 48 не удалась.
РЕДАКТИРОВАТЬ
Ваш фрагмент кода не показывает, что вы проверяете код ошибки, возвращаемый оператором
open (48, file = 'stop.in', status = 'old')
Я предлагаю вам ввести аргумент iostat и посмотреть, что он вам говорит.
ДОПОЛНИТЕЛЬНОЕ РЕДАКТИРОВАНИЕ
Во втором предложении моего первоначального ответа заменить «не существует» словами «не существует в месте, которое ожидает программа».