CALL
:
Llama una subrutina.
CALL conver(r,theta,x,y)
CALL conver(r,theta,x,y)
CHARACTER
:
Declara datos de tipo carácter.
CHARACTER init, name*10, list(20)
CHARACTER init, name*10, list(20)
CLOSE
:
Cierra un archivo.
CLOSE(8)
CLOSE(8)
DIMENSION
:
Declara dimensiones de arreglos.
DIMENSION x(100), n(20)
DIMENSION mat(5,5), dat(-2:10)
DIMENSION x(100), n(20)
DIMENSION mat(5,5), dat(-2:10)
DO (bloque)
:
Ejecuta una o varias instrucciones repetidas. Debe terminar con END DO o con CONTINUE
DO i = 1, 10
DO i = 1, 10
PRINT*, i, i**2
ENDDO
DO 10 i = 1, 10
PRINT*, i, i**2
10 CONTINUE
DOUBLE PRECISION
:
Declara datos de precisión doble.
DOUBLE PRECISION x(100), xmin, xmax
DOUBLE PRECISION x(100), xmin, xmax
FUNCTION
:
Encabezado de un subprograma tipo
función.
FUNCTION prom(x,n)
FUNCTION prom(x,n)
GO TO
:
Transfiere el control a una
instrucción específica.
GO TO 10
GO TO 10
IF (bloque)
:
Ejecuta ó evita un bloque de
instrucciones dependiendo si una expresión lógica es verdadera o falsa. Debe
terminar con un END IF y puede tener bloques tipo ELSE.
IF (x.GT.0) THEN
RESULT = SQRT(x)
ELSE IF (x.EQ.0) THEN
PRINT*,'El número es cero'
ELSE
PRINT*,'El número es negativo'
END IF
IF (x.GT.0) THEN
RESULT = SQRT(x)
ELSE IF (x.EQ.0) THEN
PRINT*,'El número es cero'
ELSE
PRINT*,'El número es negativo'
END IF
IF (lógico)
:
Ejecuta o evita una instrucción,
dependiendo de la veracidad o falsedad de la expresión lógica.
IF (disc.GT.0) disc = DSQRT(disc)
IF (disc.GT.0) disc = DSQRT(disc)
IMPLICIT
:
Usado para establecer una
convención al nombrar datos
IMPLICIT REAL*8 (A-H, O-Z)
IMPLICIT REAL (L,N-Z), INTEGER (A-K)
IMPLICIT NONE
IMPLICIT REAL*8 (A-H, O-Z)
IMPLICIT REAL (L,N-Z), INTEGER (A-K)
IMPLICIT NONE
INTEGER
:
Declara datos de tipo entero.
INTEGER n, clase(30)
INTEGER n, clase(30)
OPEN
:
Abre
un archivo.
OPEN(UNIT = 8, FILE = 'dat.inp', STATUS = 'OLD')
OPEN(UNIT = 9, FILE = 'minmax.out', STATUS = 'UNKNOWN')
OPEN(UNIT = 8, FILE = 'dat.inp', STATUS = 'OLD')
OPEN(UNIT = 9, FILE = 'minmax.out', STATUS = 'UNKNOWN')
PRINT
:
Instrucción para imprimir
información en pantalla (output).
PRINT*, 'El numero de datos es', n
PRINT*
PRINT*, 'El numero de datos es', n
PRINT*
READ
:
Instrucción para leer información
de entrada (input)
READ*, r, theta
READ(8,*), pos, vel, acel
READ(8,*, END = 20) x, y, z
READ*, r, theta
READ(8,*), pos, vel, acel
READ(8,*, END = 20) x, y, z
REAL
:
Declara datos de tipo real.
REAL a,b,c
REAL a,b,c
RETURN
:
Retorna el control desde un
subprograma a la unidad que llama al subprograma
RETURN
RETURN
STOP
:
Termina la ejecución.
STOP
STOP
SUBROUTINE
:
Encabezado para un subprograma
tipo subrutina.
SUBROUTINE conver(r,theta,x,y)
SUBROUTINE conver(r,theta,x,y)
WRITE
:
Instrucción para imprimir
información (output).
WRITE(*,*) a, b, c
WRITE(9,*)'El numero de datos es', n
WRITE(*,*) a, b, c
WRITE(9,*)'El numero de datos es', n
