Ejemplos de programación de subrutinas

Ninguno implícito

Entero I, n

Número real * 8 a(n), máximo, mínimo valor

max=a(1)

min=a(1)

i=2, n

Si (a( i)>max) entonces

max=a(i)

otro

min=a(i)

endif

Endor

Fin de subrutina findext

Por ejemplo, matriz real *8 m(n, n)

Temperatura real *8 (n)

Los valores máximo y mínimo de la enésima fila

temp=m(n,)

Llame a findext(temperatura, temperatura, valor máximo, mínimo valor)

Los valores máximo y mínimo de la enésima columna

temp=m(:, n)

Llame a findext(temperatura, temperatura, máximo valor, valor mínimo)

Esquina Caterpillar

hacer i=1, n

Temperatura (i)=m(i, I)

Endor

Llamar a findext(temperatura, temperatura, valor máximo, valor mínimo)