Частная функция в Fortran

Question

Как объявить частную функцию в Fortran?

Answer 1

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

В приведенном ниже примере кода функции subroutine_1() и function_1() доступны извне модуля через требуемый оператор «use», но любая другая функция/подпрограмма/функция будет закрыта.

module so_example 
    implicit none 

    private 

    public :: subroutine_1 
    public :: function_1 

contains 

    ! Implementation of subroutines and functions goes here 

end module so_example 

Answer 2

Я никогда не писал строки ФОРТРАНА, но this thread about "Private module procedures" кажется актуальным, по крайней мере, я надеюсь. Кажется, содержит ответы, по крайней мере.

---

jaredor Резюме:

Атрибут открытый/закрытый существует внутри модулей в Fortran 90 и позже. Fortran 77 и раньше - вам не повезло.

Answer 3

Private xxx, yyy, zzz 

real function xxx (v) 
    ... 
end function xxx 

integer function yyy() 
    ... 
end function yyy 

subroutine zzz (a,b,c) 
    ... 
end subroutine zzz 

... 
other stuff that calls them 
... 

Answer 4

Если вы используете модули, здесь синтаксис:

PUBLIC :: subname-1, funname-2, ... 

PRIVATE :: subname-1, funname-2, ... 

Все объекты, перечисленные в ЧАСТНЫЙ не будут доступны снаружи модуля и все объекты, перечисленные в PUBLIC могут быть доступны извне модуль. Все остальные объекты по умолчанию могут быть доступны извне модуля.

MODULE Field 
    IMPLICIT NONE 

    Integer :: Dimen 

    PUBLIC :: Gravity 
    PRIVATE :: Electric, Magnetic 

CONTAINS 

    INTEGER FUNCTION Gravity() 
    .......... 
    END FUNCTION Gravity 


    REAL FUNCTION Electric() 
    .......... 
    END FUNCTION 


    REAL FUNCTION Magnetic() 
    .......... 
    END FUNCTION 

    .......... 

END MODULE Field