2013-11-19 2 views
1

Я хотел был бы пропустить n количество строк. Это может быть сделано как:Пропустить чтение с помощью подразумеваемых do-loops в Fortran без фиктивной переменной

do i = i,n 
    read(file,*) 
enddo 

Однако, я хотел бы сделать это подразумеваемой сделай петлю без фиктивной переменной, как

read(file,*)(,i=1,n) 
+1

Не знаете, почему вы хотели бы это сделать, но я не верю, что это возможно. –

+0

Да, похоже, это невозможно. Я просто хочу сохранить некоторые строки кода. –

+0

Итак, напишите подпрограмму, чтобы пропустить строки 'n'. –

ответ

4
READ (file, '(' // REPEAT('/',n-1) // ')') 

, но обещаю, что вы не будете делать это. ..

+3

omg, но это то, что он заслуживает –

+0

Интересно. Я согласен с моим комментарием, что это невозможно. –

Смежные вопросы