Python Lab

FORTRAN Programs, modules, routines and functions

program ejemplo
  implicit none
  integer :: num

  write(*,*) 'Ingrese un numero entero: '
  read(*,*) num

  write(*,*) 'El numero que ingreso es: ', num
  
end program ejemplo

module ejemplo_modulo
  implicit none
  integer, parameter :: PI = 3
end module ejemplo_modulo

program ejemplo_programa
  use ejemplo_modulo
  implicit none
  integer :: num

  write(*,*) 'Ingrese un numero entero: '
  read(*,*) num

  write(*,*) 'El numero que ingreso es: ', num
  write(*,*) 'La constante PI definida en el modulo es: ', PI

end program ejemplo_programa