Чтение имени файла для открытия файла FORTRAN - PullRequest
Новая
       36

Чтение имени файла для открытия файла FORTRAN

0 голосов
/ 30 декабря 2018

Я хотел бы построить программу, в которой пользователь может ввести имя файла и путь к файлу.Это должно быть сохранено в переменной CHARACTER, которую затем можно открыть следующим образом: 

PROGRAM OPENFILE
IMPLICIT NONE
REAL DATA
CHARACTER FILENAME*100

PRINT *, 'Enter filename'
READ '(A)', FILENAME
OPEN(1, FILE=FILENAME, FORM='FORMATTED', STATUS='OLD')
DO
    READ(1, *, END=10) DATA
ENDDO
10 CONTINUE !Note: The label for CONTINUE is not in the correct position but put here for simplicity.

CLOSE(1)
END

Проблема этого метода в том, что если FILENAME намного длиннее 100 символов, тогда этот методвыходит из строя.Есть ли способ, которым символьная переменная может быть прочитана без выделения FILENAME какого-то смехотворно большого объема памяти (т. Е. Выделения точного объема, необходимого на основе ввода)?

Я довольно новичок в работе с этим языком программирования, и любая помощь будет признательна

Примечание: Если есть решение этой проблемы на FORTRAN 77, я бы хотел этого, как и яМне было поручено написать программу в 77 году, и я хочу, по возможности, придерживаться данного мне краткого описания.Если это неоправданно, тогда я с удовольствием получу решения FORTRAN 90/95.

...