8. Funciones y Subrutinas

• Funciones y subrutinas son subprogramas de FORTRAN. La mayor parte de los problemas son tan complejos que resulta conveniente trocearlos en pequeños problemas que se resuelven en cada función o subrutina.

    Funciones

• Una función toma un conjunto de valores como argumentos, realiza algún cálculo y devuelve un único resultado. Hay algunas funciones ya escritas en FORTRAN y que pueden ser usadas por el programador directamente, son las llamadas funciones intrínsecas. La mayor parte son funciones matemáticas que se utilizan de la siguiente forma:

        answer = functionname (argumentl, argument2, . . .

• Ejemplo:

    Funciones Externas

• Las funciones internas de FORTRAN son pocas y el programador puede definir sus propias funciones. Una vez definidas se utilizan de igual forma que las funciones internas.
• Hay unas pocas reglas para escribir una función externa:

1. Las funciones y cualquier otro subprograma se coloca después de la instrucción END del programa principal.
2. Comienzan con una linea que incluye el tipo de valor de la función que devolverá, el nombre de la función y la lista de argumentos que usará como inputs.
3. Todas las variables que usa la función, incluidos los argumentos, deben de ser declarados inmediatamente después de la línea 2. El nombre de la función NO se declara dentro de la función.
4. El nombre de la función se utiliza como la variable de asignación del resultado de las operaciones del subprograma. Ese valor será el que el compilador devolverá al programa principal.
5. Una función debe de finalizar con un RETURN y un END.

• El programa de ejemplo muestra como escribir una función externa que calcula el promedio de tres números:

      PROGRAM FUNDEM
C     Declarations for main program
      REAL A,B,C
      REAL AV, AVSQ1, AVSQ2
      REAL AVRAGE
C     Enter the data
      DATA A,B,C/5.0,2.0,3.0/

C     Calculate the average of the numbers
      AV = AVRAGE(A,B,C)
      AVSQ1 = AVRAGE(A,B,C) **2
   	  AVSQ2 = AVRAGE(A**2,B**2,C**2)

	  PRINT *,'Statistical Analysis'
      PRINT *,'The average of the numbers is:',AV
      PRINT *,'The average squared of the numbers: ',AVSQl
      PRINT *,'The average of the squares is: ', AVSQ2
      END

     REAL FUNCTION AVRAGE(X,Y,Z)
     REAL X,Y,Z,SUM
     SUM = X + Y + Z
     AVRAGE = SUM /3.0
     RETURN
     END

    Subrutinas

• Subrutinas actúan de igual forma que las funciones pero pueden devolver varios resultados a la vez. Una subrutina no puede asignarse a una variable pues en si misma no tiene un valor asociado.
• En el programa principal una subrutina se activa con la instrucción CALL que incluye el nombre de la subrutina seguida por una lista de inputs y de outputs.
• No es necesario declarar el nombre de las subrutinas en el programa principal.
• Las subrutinas comienzan por una linea que incluye la palabra SUBROUTINE, el nombre de la subrutina y los argumentos
• Todos los argumentos de la subrutina deben de ser declarados en la misma
• Una subrutina acaba con un RETURN y un END.
• Ejercicio:

	PROGRAM SUBDEM 
        REAL A,B,C,SUM,SUMSQ 
        CALL INPUT(A,B,C)
   	CALL CALC(A,B,C,SUM,SUMSQ)
   	CALL OUTPUT(SUM,SUMSQ)
   	END

   	SUBROUTINE INPUT(X, Y, Z)
   	REAL X,Y,Z
   	PRINT *,'ENTER THREE NUMBERS => '
 	READ *,X,Y,Z
 	RETURN
 	END

 	SUBROUTINE CALC(A,B,C, SUM,SUMSQ)
   	REAL A,B,C,SUM,SUMSQ
   	SUM = A + B + C
   	SUMSQ = SUM **2
   	RETURN
   	END

   	SUBROUTINE OUTPUT(SUM,SUMSQ)
   	REAL SUM, SUMSQ
   	PRINT *,'The sum of the numbers you entered are: ',SUM
   	PRINT *,'And the square of the sum is:',SUMSQ
   	RETURN
   	END

Ahora ir a los ejercicios y realizarlos.