＜END Example Program 1＞

Program end_example_1
  Real, Dimension(3) :: a, b
  a = (/1.,2.,3./)
  b = 2*a
  Print *, b
End Program end_example_1

■ Execution Results

  2.0000000   4.0000000   6.0000000

＜END Example Program 2＞

  Real :: a=1., b=3., c=2.
  Call shiki(a,b,c,x1,x2)
  Print *, x1,x2
End Program
Subroutine shiki(a,b,c,x1,x2)
  Intent(In) :: a,b,c
  Intent(Out) :: x1,x2
  tmp = Sqrt(b**2 - 4*a*c)
  x1 = (-b+tmp)/(2*a)
  x2 = (-b-tmp)/(2*a)
End Subroutine shiki

■ Execution Results

  -1.0000000  -2.0000000