Apuntes de Fortran: Un enfoque práctico

3. Funciones e I/O

Table 1. Formatos de entrada y salida
Modificador	Descripción
A	Cadena
Fa,b	Real de anchura total a y número de decimales b
SP	Forzar signo positivo

real pure elemental function circle_area(r) result (a)
	real, intent(in):: r

	a = r**2 * 3.14
end function circle_area