Для очень больших рабочих массивов (больших 3D-массивов) я объявляю (глобальные) переменные модуля, а затем подхожу к процедуре очистки в модуле.
Однако для векторов размера 9 это действительно не обязательно. Размещение их в стеке в качестве локальных переменных ничего не стоит. Локальная переменная размера 9, будь то явная или автоматическая c, стоит ноль для размещения в стеке. Стандарт Fortran не позволяет вам решать, где происходит распределение, но обычно это делают компиляторы. И стек имеет тенденцию быть значением по умолчанию.
Stati c хранилище также возможно (эффективно принудительно атрибутом save
), но кажется здесь ненужным.