ACCEPT"COUNT A? Y-1 N-2",IG0
М-да, это серьезно.
Насколько я помню, эта конструкция должна читать значение в переменную
IG0 из файлов, открытых под номерами
Y-1 или
N-2 в зависимости от содержимого переменной
A (если она нуль - из второго, если нет - из первого). Т.е. ее можно переписать как
IF(A .EQ.0) THEN
READ(N-2,*) IG0
ELSE
READ(Y-1,*) IG0
END IF
Хотя, честно сказать, до конца не уверен. Второй вариант - не читать из файла значение, а просто брать его равным какому-то из этих двух выражений (хотя это тогда какое-то локальное расширение ЕС-1060). Пожалуй, все-таки одной строчки мало... скиньте-ка код целиком в ЛС, если он не очень большой.