在Fortran 77中本地化常見塊變量的範圍

Question

我正在使用這個常用塊的F77代碼，並且這些常用塊也用於C程序（名稱修改後）。如果foo（a，b，...）是Fortran代碼的主要例程，那麼是否有必要將公共塊設置爲foo（）的局部變量，以便我可以執行類似下面的操作？

program new_control_routine() 

... 
call foo(a1,b1,...) 
... 
call foo(a2,b2,...) 
... 
end 

的一點是要有「富」與每個人有獨立公共塊的多個調用，即使他們這些塊具有相同的名稱。我所知道的唯一的辦法就是重新命名的「foo」的第二個呼叫公共塊和相關子，所以它成爲另一個例程「foo1」，所以我可以做：

programe new_control_routine() 
... 
call foo(a1,b1,...) 
... 
call foo1(a2,b2,...) 

但這肯定是平凡而容易出錯。

Answer 1

公共塊的要點是它們是全局的，可以使用任何使用其名稱的例程訪問。你可以在公共塊數組中創建變量，並傳遞一個索引，以便不同的調用訪問不同的元素？

爲什麼限制自己FORTRAN 77？使用Fortran 95/2003，您可以創建用戶定義類型並創建該類型的數組變量。然後你傳遞你想要處理的元素的索引。用戶定義的類型可能是一組複雜的變量。該變量可以是子例程的參數或模塊變量。