Red de conocimiento informático - Computadora portátil - Cómo usar subrutinas en programación fortran bajo bloques de código

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