Найти заявление записи в Fortran

Question

Я использую Fortran для моих исследований, а иногда, для целей отладки, кто будет вставлять в код что-то вроде этого:

write(*,*) 'Variable x:', varx 

Проблема заключается в том, что иногда случается, что мы забываем чтобы удалить это заявление из кода, и становится трудно найти, где он печатается. Обычно я могу получить хорошую идею, где это называется «Переменная x», но иногда бывает, что эта информация может отсутствовать, и я просто вижу случайные числа.

Можно представить, что выполнение grep для записи (*, *) в основном бесполезно, поэтому мне было интересно, есть ли эффективный способ найти моего виновника, например, заставляя каждый вызов write(*,*) печатать файл и номер строки, или отслеживание stdout.

спасибо.

Answer 1

Fortran препроцессор Intel определяет ряд макросов, такие как __file__ и __line__, которые будут заменены, соответственно, имя файла (в виде строки) и номер строки (как целое), когда препроцессор работают. Для получения более подробной информации consult the documentation.

GFortran предлагает аналогичные услуги, consult the documentation.

Возможно, ваш компилятор предлагает аналогичные возможности.

Answer 2

Как ранее подразумевалось, нет фортрана - хотя может быть подход к компилятору --- способ изменить поведение оператора write, как вы хотите. Однако, поскольку ваша проблема больше связана с обработкой (непреднамеренно созданным) плохим кодом, есть варианты.

Если вы не можете легко найти ненужный write(*,*) в своем коде, который предполагает, что у вас много законных таких утверждений. Одним из решений является уменьшение количества:

• использует явный формат, а не список-направленный выход (* в качестве формата);
• вместо * в качестве выходного блока, используйте output_unit от встроенного модуля iso_fortran_env.

[Имея явный формат для «правильного» выхода является хорошей идеей, так или иначе.]

Если это не удается, использовать систему контроля версий, чтобы сравнить старый «хороший» вариант против нового «плохо ". Возможно, даже ваш флаг/блок управления версиями фиксируется с новыми write(*,*).

И если все это по-прежнему не помогает, то упомянутые ранее макросы предварительного процессора могут стать последним приложением.