Codigo fortran

Código FORTRAN en una tarjeta perforada, mostrando el uso especializado de las columnas 1-5, 6 y 73-80.
El primer estándar de FORTRAN se introdujo en 1962 y se llamó FORTRAN IV.
En 1966 se presentó el primer estándar ANSI (American National Standards Institute), que se conoció como FORTRAN 66. El segundo estándar ANSI, con muchas mejoras, se introdujo en 1977 (FORTRAN 77), y se convirtió en elestándar utilizado por la comunidad científica por muchos años. Incluso a la fecha es común encontrar muchos programas escritos en FORTRAN 77.
FORTRAN 77 tenía una serie de desventajas. Entre ellas una estructura muy rígida adaptada al uso de tarjetas perforadas ("forma fija"), que requería que ciertas columnas tuvieran usos específicos. Además, no permitía un uso dinámico de la memoria y nopermitía realizar operaciones entre arreglos de números. Para mejorar esta situación, en 1990 se presentó un tercer estándar ANSI conocido como FORTRAN 90, que contenía muchas nuevas características y permitía una programación más estructurada. Una serie de cambios menores se presentaron en 1995 (FORTRAN 95), y actualmente se trabaja en un nuevo estándar ANSI (FORTRAN 2003).
VERSIONES DE FORTRAN* FORTRAN II
* FORTRAN III
* FORTRAN IV
* FORTRAN 77
* FORTRAN 90
* FORTRAN 95
* FORTRAN 2003
* FORTRAN 2005
* FORTRAN 2008
* FORTRAN 2010
FORTRAN II
IBM FORTRAN II apareció en 1958. La mejora principal era apoyar , al permitir por escrito subrutinas de usuario y las funciones que volvió valores, con parámetros pasados por referencia.
 La declaracióncomún, siempre una forma de subrutinas para el acceso común (o mundial) variables. 
* Subrutina, FUNCIÓN y END
* CALL y RETORNO
* COMÚN
En los próximos años, FORTRAN II también añadió soporte estos tipos de datos  DOBLE PRECISIÓN y COMPLEJO.
Sencillo programa Fortran II
Este programa, por la fórmula de Herón, lee una tarjeta de datos que contiene tres dígitos enteros 5 A, B y C comoentrada. Si A, B y C no pueden representar a los lados de un triángulo en la geometría plana, entonces el programa de ejecución de la voluntad termina con un código de error de "STOP 1".  De lo contrario, una línea de salida será impreso que indica los valores de entrada para A, B y C, seguidos de la superficie calculada del triángulo como un número de punto flotante con 2 dígitos después delpunto decimal.
ZONA C de un triángulo con un cuadrado estándar ROOT FUNCIÓN
DE ENTRADA C - LECTOR TARJETA UNIDAD 5, entero de entrada de salida C- IMPRESORA unidad de línea 6, la producción real
C ENTRADA PANTALLA DE ERROR ERROR DE SALIDA CÓDIGO 1 EN CONTROL DE LISTADO DE EMPLEO
LEER TAPE INPUT 5, 501, IA, IB, IC
501 FORMATO (3I5)
IA C, IB y IC no podrá ser negativo
C Además, la suma de doslados de un triángulo
C es mayor que el tercer lado, por lo que VERIFIQUE QUE TAMBIÉN
SI (IA) 777, 777, 701 701 IF (IB) 777, 777, 702 702 IF (IC) 777, 777, 703 703 IF (IA+IB-IC) 777 777 704 704 IF (IA+IC-IB) 777 777 705 705 IF (IB+IC-IA) 777 777 799 777 PARADA 1
C USO DE LA FORMULA HERON calculamos la
ZONA C del triángulo
799 S = FLOATF (IA + IB + IC) / 2.0 AREA = SQRT(S * (S - FLOATF (IA)) *(S - FLOATF (IB)) *
+ (S - FLOATF (IC)))
Escribir la salida Tape 6, 601, IA, IB, IC, AREA 601 FORMATO
(4H A=, I5, 5H B=, I5, 5H C=, I5, 8H AREA=, F10.2,
+ 13H PLAZA DE UNIDADES)
PARADA
FORTRAN III
IBM también desarrolló una FORTRAN III en 1958 que permitió el código ensamblador en línea entre otras características, sin embargo, esta versión nunca fue lanzada como un producto. Al igual queel FORTRAN 704 y FORTRAN II, FORTRAN III incluye características dependientes-máquina que hizo el código escrito en ella portable de la máquina a máquina. Las primeras versiones de FORTRAN proporcionadas por otros proveedores sufrieron los mismos inconvenientes.
FORTRAN IV
A partir de 1961, como resultado de demandas de los clientes, IBM comenzó a desarrollar un FORTRAN IV que eliminaban los...