读取文件名以打开文件FORTRAN

Question

我想构建一个程序，用户可以在其中输入文件名和文件路径。这应该存储到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解决方案。