Cómo usar subrutinas en programación fortran bajo bloques de código
1. Acerca de la instalación extremadamente rápida de codeblocks IDE
Tutorial de referencia: Creación de un entorno de desarrollo fortran en Windows
2 La forma general de subrutina: subrutina. xxxx (parámetro 1, parámetro 2...)
implícito ninguno
Tipo de parámetro 1
Tipo de parámetro 2
código xxxxxx
p>Finalizar subrutina xxxx
3 Escribe una subrutina
Pasa 2 parámetros
Uno de ellos es una cadena
El otro es un número entero
Recorre un número entero de veces e imprime una cadena
Cambia el valor entero pasado al final del programa
Hay tres tipos de parámetros pasados: Formulario:
intención(in): el valor no se puede cambiar en la subrutina
intención(salida): se puede cambiar en la subrutina
intención(inout): se puede cambiar en subrutinas
========================== =========== =
!Subrutina
subrutina dy2003310(strFileName, times)
implícita ninguna
carácter(*), intención(entrada) ::strFileName
entero, intención(entrada)::veces
entero::i
hacer i= 1, veces
imprimir *, strFileName
end do
times=times times
finalizar subrutina dy2003310
4. Utilice la palabra clave fortran contiene
contiene es una nueva función de sintaxis en Fortran 90
En un módulo o subrutina
Contiene se puede utilizar para incluir otros módulos o subrutinas
Escribe el programa principal
Prueba si la subrutina puede cambiar los parámetros pasados
ninguno implícito
carácter (len =255)::str
p>entero::n
str=168
n=3
imprimir *, * ********** ****************************
imprimir *, antes del se ejecuta la subrutina, n=, n
llamar a dy2003310(str, n)
imprimir *, después de que se ejecuta la subrutina, n=, n
imprimir *, ******** **********************************
5. Compile y vincule en bloques de código:
6. Los resultados de ejecución y prueba son los siguientes
Puede ver:
El parámetro 2 es igual a 3 antes de la subrutina. se llama
Después de la llamada, se convierte en 6