¡Descarga Análisis Numerico para Ingeniería: Lenguaje Fortran90 - Arreglos y Operaciones y más Apuntes en PDF de Métodos Matemáticos para Análisis Numérico y Optimización solo en Docsity! 02/04/2013 Analisis Numerico para Ingenieria 1 Lenguaje Fortran90 (continuación) Constructor de arreglos con DO implícito Operaciones con arreglos Archivos Procedimientos F90: subrutinas y funciones Biblioteca IMSL docsity.com 02/04/2013 Analisis Numerico para Ingenieria 2 Arreglos con formato explícito : (a) tamaño conocido (e inflexible) en tiempo de compilación. Puede figurar en el programa principal o en subrutinas INTEGER matrizA(10,10,10) INTEGER matrizB(-3:6,4:13,0:9) docsity.com 02/04/2013 Analisis Numerico para Ingenieria 5 Constructor de arreglos:sintaxis Nombre_array =(/lista-de-valores/) Lista de valores 1. escalares 2. ciclos de DO-implícitos docsity.com 02/04/2013 Analisis Numerico para Ingenieria 6 DO implícito (listaDo, variableDo = comienzo, fin [ , incremento ] ) Expresion Nombre de una variable entera Expresiones enteras docsity.com 02/04/2013 Analisis Numerico para Ingenieria 7 Constructor con DO implícito INTEGER A(6), B(10) REAL C(15), R(8) A = (/1, 2, 3, 4, 5, 6 /) !A(1)=1, A(2)=2, ...,A(6)=6 A=(/(i,i=1,6)/) !Lo mismo con DO implícito docsity.com REAL, DIMENSION(10, 20) :: a, b, c REAL, DIMENSION(5) :: v, w LOGICAL,DIMENSION(1:3,1:5):: L1,L2 LOGICAL flag(10, 20) a = b ! asignación de arreglo completo c = a + b ! suma elemento a elemento c = 0. ! asignación a un arreglo completo de un !valor escalar w = v + 1. ! Suma a un arreglo completo de un valor escalar EJEMPLOS docsity.com c = a/b !división de arreglo completo L1 = L1.AND.L2 ! Operador lógico and flag = a==b !expresion relacional sobre un arreglo !completo y asignacion v = sqrt(w) ! resultado de una funcion intrinseca como arreglo docsity.com 02/04/2013 Analisis Numerico para Ingenieria 12 Introducción a archivos F90 Los resultados de una aplicación pueden ser usadas por otra. Un registro está compuesto por un conjunto de campos. Existen registros formateados, no formateados y endfile. Veremos solamente los registros con formato, i.e., el formato siempre es legible para el usuario. docsity.com 02/04/2013 Analisis Numerico para Ingenieria 15 Introducción a archivos F90 Una unidad se usa para identificar el dispositivo lógico asociado (conectado) a un archivo externo físico (existente en un medio externo). El especificador de unidad es un número entero no negativo o un asterisco que se asigna en la sentencia OPEN. El asterisco especifica el teclado cuando se lee y la pantalla cuando se escribe. docsity.com 02/04/2013 Analisis Numerico para Ingenieria 16 Sentencia OPEN Conecta un archivo externo a una unidad Crea un nuevo archivo y lo conecta a una unidad Crea un archivo pre-conectado, o Cambia ciertas propiedades de una conexión docsity.com 02/04/2013 Analisis Numerico para Ingenieria 17 Sentencia OPEN OPEN ([UNIT=]unidad [, FILE=nombre] [, ERR=etiqueta] [, IOSTAT=var] , lista) unidad: especificador de unidad externa nombre: expresión carácter que especifica el nombre de un archivo que será conectado. etiqueta: es la etiqueta de la sentencia donde se pasa el control si ocurre un error. var: es una variable entera que toma un valor positivo si ocurre un error (es el numero del mensaje de error); toma un valor negativo si se encuentra el registro de fin de archivo y toma cero si no hay error. lista: es uno de los siguientes especificadores escritos de la forma especificador=valor del especificador (cada uno puede aparecer solo una vez). NOTA: solo se mostrarán los mas comunes. docsity.com 02/04/2013 Analisis Numerico para Ingenieria 20 Sentencia CLOSE Esta sentencia se usa para terminar la conexión de una unidad específica con un archivo externo. docsity.com 02/04/2013 Analisis Numerico para Ingenieria 21 Sentencia CLOSE CLOSE ( [UNIT=]unidad [, STATUS = p] [, ERR=etiqueta] [, IOSTAT=var] ) P: constante string que indica el estado del archivo luego de ser cerrado y puede tener los siguientes valores: 'KEEP' el archivo sigue existiendo luego de cerrado 'DELETE' – borra el archivo luego de cerrado. Por defecto toma 'DELETE‘ si el archivo es scratch y aplicación QuickWin. Para los otros archivos el valor por defecto es 'KEEP' Ejemplo: CLOSE (UNIT=7, STATUS='DELETE', ERR=99) docsity.com 02/04/2013 Analisis Numerico para Ingenieria 22 Sentencia READ La sentencia READ permite leer datos por transferencia desde archivos externos secuenciales (veremos este caso), de acceso por clave, acceso directo o desde archivos internos. docsity.com
