Вы должны иметь возможность сделать что-то вроде этого (untested - и я не писал FORTRAN с 1984 года):
command='wc -l < file.txt > wc.txt' CALL system(command) OPEN(unit=nn,file='wc.txt') READ(nn,*) count