<Example Program>
Program external_example
Real, External :: tan
Print *, tan( 45. )
End Program
Real Function tan(degrees)
radians = degrees*3.141592654/180.
tan = sin(radians)/cos(radians)
End Function
Execution Results
1.0000000