＜CALL Example Program＞

Program call_example
  Call shiki(1.0,3.0,2.0,x1,x2)
  Print *,x1,x2
End Program
Subroutine shiki(a,b,c,x1,x2)
  Intent(In) :: a,b,c
  Intent(Out) :: x1,x2
  d = b**2 - 4.0*a*c
  If (d > 0.) Then
    x1 = (-b+Sqrt(d))/(2.0*a)
    x2 = (-b-Sqrt(d))/(2.0*a)
  End If
End Subroutine shiki

■ Execution Results

  -1.0000000  -2.0000000