FORTRAN, un lenguaje de programación científica y en paralelo

FORTRAN (The IBM Mathematical Formula Translating System) es: un lenguaje de programación paralelo y de alto rendimiento.

Características:

1. Procedural.
2. Imperativo.
3. Tipado estático y fuerte.
4. Ideal para cálculo numérico y computación científica.
5. De alto nivel.
6. Portable (en la actualidad).

Al igual que Pascal y C es considerado ideal para realizar cálculos complejos y programación en paralelo.

Con el advenimiento de lenguajes como, el no tan nuevo, Python y otros más (Java, Kotlin, etc.) es preciso conocer lenguajes que se niegan a morir pues aún falta explotarlos correctamente.

Muchos no saben pero Python es muy usado actualmente por su "rapidez" a la hora de crear aplicaciones de Machine Learning.

Sin embargo, desconocen que detrás de este lenguaje están librerías hechas en C o C++ quienes hacen el trabajo duro y dejan a Python la parte más sencilla. Igualmente hay quienes emplean Python acompañado del lenguaje FORTRAN quien se hace cargo de las operaciones complejas que a Python le costaría un tiempo muy considerable en realizar.

Si usas Windows, deberás descargarlo en este sitio:

http://www.equation.com/servlet/equation.cmd?fa=fortran

Si usas Linux Ubuntu, puedes instalarlo así:

sudo apt-get install gfortran
sudo apt install build-essential
sudo apt-get install manpages-dev

Listar versión instalada:

$> gfortran --version

Empecemos con algunos ejemplos.

Ejemplo. El clásico "Hola, mundo" en FORTRAN. La extensión del programa será *.f90.

holamundo.f90

program holamundo
  ! Este es un comentario
  print *, '!Hola, mundo en Fortran!'
end program holamundo

Compilamos:

$> gfortran holamundo.f90 -o holamundo

Ejecutamos:

$> ./holamundo
!Hola, mundo en Fortran!

Ejemplo. Crear un programa que muestre los tipos básicos en Fortran.

variables.f90

program variables
  implicit none

  ! Declaración de variables
  integer :: amount
  real :: pi
  complex :: frequency
  character :: initial
  logical :: isOkay
  
  ! Asignación de valores
  amount = 233
  pi = 3.1415733
  frequency = (-534.0, 545.0)
  initial = 'A' 
  isOkay = .true.

  ! Imprimir en pantalla
  print *, 'El valor de amount (integer) es: ', amount
  print *, 'El valor de pi (real) es: ', pi
  print *, 'El valor de frequency (complex) es: ', frequency
  print *, 'El valor de initial (character) es: ', initial
  print *, 'El valor de isOkay (logical) es: ', isOkay  
  

end program variables

Salida:

 El valor de amount (integer) es:          233
 El valor de pi (real) es:    3.14157319
 El valor de frequency (complex) es:             (-534.000000,545.000000)
 El valor de initial (character) es: A
 El valor de isOkay (logical) es:  T

Ejemplo. Programa que solicite edad de una persona. Si la edad es mayor a 18 años, puede votar. Si no es mayor, no puede votar.

edad.f90

program edad
 implicit none

 ! Declaramos variable y asignamos un valor
 integer :: myEdad
 
 print *, 'Introduce tu edad: '
 read(*,*) myEdad

 print *, 'Tu edad es: ', myEdad
  
 if (myEdad > 18) then
  print *, 'Puedes votar.'
 else
  print *, 'No puedes votar.'
 end if

end program edad

Salida:

 Introduce tu edad:
42
 Tu edad es:           42
 Puedes votar.

Más en otros posts.

Enlaces:

https://fortran-lang.org/es/index