asdf

Apuntes de Fortran 90

V. Dom´
ınguez y F.J. Sayas
Junio de 2001

1.

Introducci´n
o

Fortran 90 es una actualizaci´n de Fortran 77 que moderniza este lenguaje, incorporando algunas de las
o
caracter´
ısticas comunes de los lenguajes m´s modernos (C, C++, Pascal,etc.). Con el nuevo lenguaje se
a
persiguen los siguientes objetivos:
Modernizar la sintaxis.
Incluir aspectos deprogramaci´n modular, recursividad,. . .
o
Mejorar la “habilidad” para trabajar con las matem´ticas.
a
Incorporaci´n de estructuras de datos y de punteros.
o
Dentro de los posible se mantiene todav´ v´lida las instrucciones y sintaxis del Fortran 77. As´ peque˜as
ıa a
ı
n
modificaciones permiten pasar un c´digo en Fortran 77 a un c´digo en Fortran 90. Sin embargo con ello
o
o
perdemos lasprincipales ventajas que incorpora el nuevo lenguaje.
Cap´
ıtulo aparte merece el caso del manejo de tablas. En nuestro caso nos concentraremos en tablas
unidimensionales y bidimensionales que se identifican con vectores y matrices. La nueva filosof´ de
ıa
Fortran 90 consiste en el manejo de estas estructuras globalmente en lugar de elemento a elemento.
Por ultimo conviene se˜alar que existeuna actualizaci´n posterior que se conoce como Fortran 95. Sin
´
n
o
embargo los cambios que incorpora son de una magnitud sensiblemente inferior a los desarrollados en la
versi´n anterior
o
Primeras ideas sobre la sintaxis.
se emplea desde la columna inicial, a diferencia del Fortran 77 que dejaba las 6 primeras libres para
etiquetas y control de bucles.
No se distingue entre may´sculasy min´sculas. Hay compiladores que distinguen para los nombres
u
u
de variables.
! indica una l´
ınea de comentario. Todo lo que sigue no se compila.
& se emplea para cortar una l´
ınea. Se escribe al final de la l´
ınea cortada y al principio de la siguiente.
Estructura del programa.
program nombre programa
declaraci´n de variables
o
cuerpo del programa
end program nombre programaEjemplo
! mi primer programa en FORTRAN 90
program primero
implicit none
real :: x,y

! arranque del programa
! declaraci´n variables
o

! programa
print*,’dame dos numeros reales’
read*,x,y
print*,’su suma es’,x+y
print*,’Esta es una linea partida en dos’,&
& (x+(2*y)*x-y*y)/3.5
end program primero

! final

2

2.

Declaraci´n de variables y asignaci´n
o
o
Tipos deconstantes y variables:
• enteras (integer)
• de coma flotante (real) a simple y doble precisi´n
o
• complejas (complex) a simple y doble precisi´n
o
• car´cter (character)
a
• l´gicas (logical): unicamente pueden adoptar los valores
o
´
.TRUE.

.FALSE

La orden
implicit none
cancela un convenio impl´
ıcito de declaraci´n de variables y obliga a declarar todas las variables
o
Pordefecto real y complex son de precisi´n simple, pero depende del compilador.
o
Ejemplo
program asignaciones
implicit none
integer :: i,j
real (kind=4) :: x,y
! declara variables de precisi´n simple
o
real (kind=8) :: z,t
! precisi´n doble
o
complex :: u
! complex(kind=4) :: u
character (len=4) :: palabra
! (len=4) indica que tiene 4 caracteres
logical :: test
x=3.23e-4
!asignacion de 3,23 10−4
y=-2.312e2
x=3.4
y=4
! esta asignaci´n incluye una conversi´n de entero a real
o
o
z=3.23e-4 8
! 8 indica que es doble precisi´n
o
t=2. 8
z=(3.e-1,2.)
! =0,3 + 2ı
palabra=’casa’
! las comillas identifican las constantes car´cter
a
palabra="Juan"
! tambi´n se usan las dobles comillas
e
test=.TRUE.
end program asignaciones

Inicializaci´n de variables.
o
Sepueden dar valores de arranque a las variables al declararlas
parameter bloque la posibilidad de reasignar la variable en el transcurso del programa
En las asignaciones de inicializaci´n no puede haber operaciones aritm´ticas. Es aconsejable que no
o
e
haya conversiones autom´ticas (entero a real, etc).
a

3

programa asignaciones
implicit none
real :: x=4.,t,z=3.e-2
real (kind=8) ::...