• Miércoles 20 de Noviembre de 2024, 17:20

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - oglok

Páginas: [1]
1
Fortran / Re: Saludos
« en: Jueves 31 de Marzo de 2011, 12:31 »
Hola ejoal,

Ese END=97 significa que el programa esta leyendo algo, seguramente un fichero. Digo seguramente porque habrá alguna linea anterior donde ponga OPEN (5, 'fichero'). Hemos asignado el numero 5 a ese fichero. La instrucción READ, lee ese fichero hasta que termina. Una vez que no hay datos en el fichero, pasa a la linea etiquetada por el código 97. Ese end es un indicador EOF (end of file).

Cualquier dudilla aqui estamos!


Cita de: "ejoal"
HOLA!!!!
ME INTERESÓ MUCHO ESTE FORO, YA QUE UDS, DEBEN SABER MAS FORTRAN QUE YO.
ESTOY INTENTANDO CORRER UN PROGRAMA ESCRITO PARA FORTRAN IV, PERO EL COMPILADOR QUE ESTOY USANDO ES EL DE LAHEY-FUJITSU 95. ASÍ,  EXISTEN ALGUNAS INSTRUCCIONES QUE NO CORREN Y QUE NO ENTIENDO. POR EJEMPLO TENGO ESTA:
-----------------------------------------------------------
      [B]WRITE(6,51)
  51 FORMAT(5X, 'INTRODUZCA X1')
       READ(5,78, END =97) X1
[/B]-----------------------------------------------------------

CIERTA CANTIDAD DE LINEAS DESPUES DE ESTAS INSTRUCCIONES, ESTA LA ETIQUETA 97....
¿COMO SE INTERPRETA ESE END=97?


LES AGRADECERIA CUALQUIER AYUDA QUE ME PUEDAN PRESTAR......

2
Fortran / INTERPOLACIÓN LINEAL
« en: Jueves 31 de Marzo de 2011, 11:38 »
Buenos días chicos,

soy nuevo en el foro y no he encontrado ningún tema sobre las librerías IMSL. Necesito encontrar la función de interpolación lineal que se asemeje mas al interp1 de MATLAB.

En estas librerías hay muchisisisimas interpolaciones, pero no encuentor una sencilla. Tengo un fichero de datos con unos ángulos y un valor asociado a cada ángulo. Quería saber qué ángulo es el exacto cuando ese valor llega a uno determinado. (diagramas de radiación de antenas...)

Algun consejo?

Páginas: [1]