Начиная с 1984 года, фактически в стандарте 2008 года, но уже реализованном большинством часто встречающихся компиляторов Fortran, включая gfortran
, существует стандартная внутренняя подпрограмма execute_command_line
, которая примерно соответствует тому, что широко внедряется, стандартная подпрограмма system
. Поскольку @MarkSetchell имеет (почти) написанное, вы можете попробовать
CALL execute_command_line('wc -l < file.txt > wc.txt' )
OPEN(unit=nn,file='wc.txt')
READ(nn,*) count
. Что Fortran не имеет, это стандартный способ получить количество строк в файле без обращения к типу работы зависящее от системы обходное решение выше. Другое, то есть, чем открытие файла, подсчет количества строк, а затем перемотка в начало файла, чтобы начать чтение.