program functioncalling
    
  print *, 'This is the Fortran program; I am going to call some functions now...'
  call sum(1.0,2.0,3.0)
  call factorial(3)
  print *, 'Done'

contains

  subroutine sum(x,y,z)

  x = x+y+z

  print *, x

  end subroutine sum

  subroutine factorial(j)

  p=1
  i=1
  do i=1,j
    p=p*i
  end do

  print *, j, "! = ", p

  end subroutine factorial

  subroutine sum2(x,y)

  p = x+y

  end subroutine sum2


end