Создание нескольких модулей из нескольких общих блоков fortran 77

Вам нужен только один экземпляр модуля. Вы делаете его известным любой основной программе или процедуре (подпрограмме или функции), которая его использует, с помощью оператора use. Если у вас есть подпрограмма, которая устанавливает значения, то, как и любая другая, она должна иметь оператор use. Если вы устанавливаете начальные значения, вы можете сделать это в объявлении. Если модуль используется основной программой, то он всегда будет в области видимости, а значения переменных будут сохраняться на протяжении всего выполнения программы. Если модуль используется только процедурой, в принципе модуль выйдет из области видимости, если ни одна из этих процедур не находится в цепочке вызовов, а компилятору разрешено забыть значения переменных модуля. (Сомнительно, чтобы какой-либо компилятор Fortran действительно делал это.) Этого можно избежать, объявляя каждую переменную с помощью SAVE. SAVE является неявным, если вы объявляете переменную с начальным значением.

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

module Words
character*5 Greet
save
end module

module Vals
double precision x,y
integer i
save
end module

module my_subs

contains

subroutine foo ()
use Words
use Vals
double precision :: z

print *, Greet

z = x + y
print *, z

print *, i

end subroutine

end module my_subs


program main
use Words
use Vals
use my_subs


Greet = 'Hello'
x = 4.1
y = 5.2

i = 3

call foo ()

end program main

Есть несколько причин, по которым ваш код не будет компилироваться:

1. Ваши модули располагаются после вашей основной программы, что означает, что они не будут скомпилированы к тому времени, когда вы use их туда добавите. Либо поместите их в отдельные файлы и скомпилируйте перед основной программой, либо поместите перед основной программой.

2. Вы повторно объявляете переменные из своего модуля в основной программе, что компилятор интерпретирует как конфликт имен. Все переменные модуля с атрибутом public (который используется по умолчанию) станут доступны в той области, в которой вы use используете модуль; это называется "использовать ассоциацию". Другими словами, use vals достаточно, чтобы сделать доступными x, y и int.

Кроме того, модули больше похожи на одноэлементные объекты, чем просто на контейнеры данных. Они также могут содержать процедуры, перечисленные после оператора contains, что помогает группировать переменные и связанные процедуры вместе. Примером может быть объединение двух ваших модулей в один вместе с подпрограммой foo:

module vals
  implicit none

  double precision :: x = 4.1, y = 5.2
  integer :: i = 3
  character(5) :: greet = 'Hello'

contains
  subroutine foo()
    double precision :: z  ! New local variable

    print *, Greet

    z = x + y
    print *, z

    print *, i
  end subroutine
end module

Выше я использовал «новый» оператор с двойным двоеточием ::, который позволяет объявлять и инициализировать несколько переменных одновременно. Поскольку переменные модуля уже неявно save, это нормально.

В качестве альтернативы, если эти модули предназначены быть отдельными, вы также можете иметь contains разделов в своей основной программе (или любой подпрограмме) и поместить туда подпрограмму. Преимущество заключается в том, что процедуры, объявленные таким образом, всегда имеют явные интерфейсы, что значительно облегчает диагностику ошибок компилятором и даже требуется в некоторых новых случаях. Это одно из основных улучшений F90, поскольку F77 имел дело только с внешними подпрограммами и неявными интерфейсами.

Самый простой способ сделать общие блоки — иметь один включаемый файл для каждого общего блока и сделать все свои объявления в включаемом файле. Таким образом, общий блок объявляется только в одном месте. Проблема необходимости конвертировать код для использования модулей просто волшебным образом исчезает.

Кроме того, если вы начинаете новый код, добавление префикса к имени переменной общего блока с тем же именем, что и у именованного общего блока, значительно упростит кодирование. Поначалу это боль, и примадонны, которые программировали годами, откажутся подчиняться. Люди, которые поддерживают код, найдут его очень простым: никаких greps или groks. Просто взглянув на название, вы узнаете, из какого общего блока оно происходит.

Сохранение того же соглашения с модулями также помогает. Если все имена подпрограмм и имена переменных начинаются с имени модуля, то, просто взглянув на имя, вы узнаете, из какого модуля оно взято.