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 Results1.0000000
<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 |
|