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