Real :: a=1., b=3., c=6.
Print *, shiki(a,b,c)
End
Real Function shiki(a,b,c)
shiki = 0.0
tmp = b**2 - 4.0*a*c
If (tmp<0.) Return
shiki = (-b+Sqrt(tmp))/(2.0*a)
End Function
Execution Results0.0000000
<Example Program>
| Program return_example Real :: a=1., b=3., c=6. Print *, shiki(a,b,c) End Real Function shiki(a,b,c) shiki = 0.0 tmp = b**2 - 4.0*a*c If (tmp<0.) Return shiki = (-b+Sqrt(tmp))/(2.0*a) End Function |
|
| Execution Results 0.0000000 |
|