Intrinsic Sin, Cos
Call sub( Sin, Cos, tan, 45. )
Print *, tan
End
Subroutine sub( si, cs, tan, degrees )
radians = degrees*3.141592654/180.
tan = si(radians)/cs(radians)
End Subroutine
Execution Results1.0000000
<Example Program>
| Program intrinsic_example Intrinsic Sin, Cos Call sub( Sin, Cos, tan, 45. ) Print *, tan End Subroutine sub( si, cs, tan, degrees ) radians = degrees*3.141592654/180. tan = si(radians)/cs(radians) End Subroutine |
|
| Execution Results 1.0000000 |
|