subroutine hellofortran(n)
integer n
write(*,*)  "Hello from Fortran! The secret number is: ", n
return
end