descargar - fortran pdf

Función privada en Fortran

Question

¿Cómo declaro una función privada en Fortran?

Answer 1

Esto solo funcionará con un módulo Fortran 90. En su declaración de módulo, puede especificar los límites de acceso para una lista de variables y rutinas usando las palabras clave "pública" y "privada". Por lo general, me resulta útil usar la palabra clave privada por sí sola inicialmente, que especifica que todo dentro del módulo es privado a menos que se indique explícitamente como público.

En el siguiente ejemplo de código, se puede acceder a subrutina_1 () y a la función_1 () desde el exterior del módulo a través de la declaración de "uso" requerida, pero cualquier otra variable / subrutina / función será privada.

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

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 3

Si usa módulos, aquí está la sintaxis:

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

No se podrá acceder a todas las entidades enumeradas en PRIVADO desde fuera del módulo y se podrá acceder a todas las entidades enumeradas en PUBLIC desde fuera del módulo. Todas las demás entidades, de forma predeterminada, se puede acceder desde fuera del módulo.

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

Answer 4

Nunca he escrito una línea de FORTRAN, pero este hilo sobre "Procedimientos de módulos privados" parece ser tópico, al menos eso espero. Parece contener respuestas, al menos.

resumen de jaredor :

El atributo público / privado existe dentro de los módulos en Fortran 90 y posteriores. Fortran 77 y anteriores: no tienes suerte.