1
+ program HOLA_FORTRAN
2
+ implicit none
3
+
4
+ ! Esto es un comentario.
5
+ ! Los comentarios deben iniciar con el caracter "!" si es la versión Fortran90 o posterior y con "c" si es la versión Fortran77.
6
+ ! La pagina web oficial de Fortran en español es https://fortran-lang.org/es/index , en la pestaña aprender pueden encontrar
7
+ ! multiples recursos para aprender Fortran como manuales y tutoriales
8
+ ! Puedes encotrar un manual muy completo en http://anyp.fcaglp.unlp.edu.ar/biblio/fortran/fortran90.pdf.
9
+
10
+ ! Para crear y utilizar una variable en Fortran primero se deben declarar, la sintaxis de declaración es la siguiente.
11
+ integer a ! Variable de tipo entero (numeros enteros)
12
+ real b ! Variable de tipo real (numeros reales)
13
+ complex c ! Variable de tipo complejo (numeros complejos)
14
+ logical d ! Variable de tipo logico (verdadero o falso)
15
+ character e ! Variable de tipo caracter (cadenas de caracteres)
16
+ ! Los nombres de las variables deben iniciar con una letra y tener máximo 23 caracteres.
17
+ ! Es importante saber que Fortran no distingue minusculas de mayusculas,
18
+ ! por lo tanto la variable "a" y "A" es la misma para Fortran.
19
+
20
+ ! Para declarar varias variables del mismo tipo de dato se puede utilizar la coma.
21
+ integer f,g,h,i
22
+ real j,k,l,m
23
+ complex n,o,p,q
24
+ logical r,s,t,u
25
+ character v,w,x,y
26
+
27
+ ! Otra sintaxis permitida para declarar variables es utilizando doble dos puntos.
28
+ integer :: z,aa,ab,ac
29
+ real :: ad,ae,af,ag
30
+ complex :: ah,ai,aj,ak
31
+ logical :: al,am,an,ao
32
+ character :: ap,aq,ar,as
33
+
34
+ ! Para declarar una constante se utiliza el atributo "parameter".
35
+ integer , parameter :: at= 1000
36
+ ! Las constantes son utiles cuando se tiene certeza que no van variar su valor durante la ejecución del programa.
37
+ ! Por ejemplo valores como el numero pi o el numero de Euler.
38
+
39
+ ! Se puede asignar un valor a la variable en el momento de su declaración.
40
+ integer :: au= 1
41
+ real :: av= 2.1
42
+ complex :: aw= (3 ,4 ) ! A las variables complejas se les debe asignar dos valores, la parte entera (3) y la parte imaginaria (4).
43
+ logical :: ax= .true. ! Las variables logical pueden ser o verdaderas (.true.) o falsas (.false.)
44
+ character (len= 12 ):: ay= ' Hola Fortran' ! Las variables de cadenas de caracteres deben especificar la longitud de caracteres que
45
+ ! tiene la variable (esto se realiza con el atributo "len"), si no se especifica, Fortran asume que la variable solo tiene un
46
+ ! caracter. Si no sabemos que tamaño va a tener la variable podemos utilizar el comodin "*".
47
+ character (len=* ), parameter :: az= ' cadena de caracter' , ba= ' otra cadena'
48
+ ! Si la variable de cadena de caracteres tiene una comilla simple en su interior, entonces se debe asignar su valor con comillas
49
+ ! dobles, tal y como se muestra a continuación.
50
+ character (len= 16 ), parameter :: bb= " Ciudad 'Bogotá'"
51
+
52
+ ! Las variables de tipo real pueden ser de precisión simple, doble o cuadruple. Para definir la presión se utiliza el atributo
53
+ ! "kind", tal y como se muestra a continuación.
54
+ real (kind= 4 ):: bc ! la variable bc tiene precisión simple. Se pueden utilizar valores desde 1.2x10^-38 hasta 3.4x10^38 con
55
+ ! 8 cifras significativas.
56
+ real (kind= 8 ):: bd ! la variable bd tiene precisión doble. Se pueden utilizar valores desde 2.2x10^-308 hasta 1.8x10^308 con
57
+ ! 16 cifras significativas.
58
+ real (kind= 16 ):: be ! la variable be tiene precisión cuadruple. No se exactamente de que números a que números son permitidos
59
+ ! con esta precisión (sería fabuloso que alguien completara esta información) pero son números con máximo 32 cifras
60
+ ! significativas.
61
+
62
+ ! Para imprimir por terminal en Fortran se pueden utilizar las variables "print" o "write".
63
+ print * ,' Hola Fortran' ! El asterisco imprime el texto luego de la coma en formato por defecto de Fortran.
64
+ print * ,ay ! Se imprime en terminal la variable ay con print.
65
+ write (* ,* )' Hola Fortran' ! El primer asterisco dentro de los parentesis representa que se va a imprimir en la terminal y el
66
+ ! segundo que se imprime el texto en formato por defecto de Fortran.
67
+ write (* ,* )ay ! Se imprime en terminal la variable ay con write.
68
+
69
+ ! Algunos editores o compiladores de Fortran pueden reconocer que una variable no esta siedo usada dentro del programa, por lo
70
+ ! tanto, para evitar warnings indeseados se utilizan todas las variables declaradas dentro del programa
71
+ a= 1 ;b= 1.1 ;c= (1 ,1 );d= .true. ;e= ' 1' ;f= 1 ;g= 1 ;h= 1 ;i= 1 ;j= 1.1 ;k= 1.1 ;l= 1.1 ;m= 1.1 ;n= (1 ,1 );o= (1 ,1 );p= (1 ,1 );q= (1 ,1 );r= .true. ;s= .true.
72
+ t= .true. ;u= .true. ;v= ' 1' ;w= ' 1' ;x= ' 1' ;y= ' 1' ;z= 1 ;aa= 1 ;ab= 1 ;ac= 1 ;ad= 1.1 ;ae= 1.1 ;af= 1.1 ;ag= 1.1 ;ah= (1 ,1 );ai= (1 ,1 );aj= (1 ,1 );ak= (1 ,1 )
73
+ al= .true. ;am= .true. ;an= .true. ;ao= .true. ;ap= ' 1' ;aq= ' 1' ;ar= ' 1' ;as= ' 1' ;au= 1 ;av= 1.1 ;aw= 1 ;ax= .true. ;bc= 1.1 ;bd= 1.1 ;be= 1.1
74
+
75
+ end program HOLA_FORTRAN
0 commit comments