好的，在我的程序中，我打开一个包含三列的 .txt 文件。第 1 列有整数，第 2 列有名称（字符串），第 3 列有实数。我已经弄清楚如何搜索用户输入的项目的整数和实数（将变量与存储列的数组进行比较）......但是当我尝试在字符数组中搜索用户输入的名称时，它永远不会起作用。这是我所有的代码...我在 CASE(2) 中寻求帮助
~ n 保存文件中的行数
PROGRAM database
IMPLICIT NONE
CHARACTER(30)::file, search
INTEGER::err, n, m, i, k, searchtype, recordnum
LOGICAL:: alive
REAL:: grade
REAL, ALLOCATABLE:: arrayr(:)
INTEGER, ALLOCATABLE:: arrayi(:)
CHARACTER(15), ALLOCATABLE:: arrayc(:)
CHARACTER(15)::name
101 FORMAT(A)
DO
WRITE(*,101) "What is the filename?"
READ(*,*) file
INQUIRE(FILE=file, EXIST=alive)
IF (alive.EQV..TRUE.) THEN
WRITE(*,101) "The file exists"
OPEN (UNIT=11, FILE=file, STATUS="OLD", ACTION="READ", IOSTAT=err)
IF (err .NE. 0) THEN
WRITE(*,'(2A)')"There was an error opening ", file
STOP
END IF
EXIT
ELSE IF (alive.EQV..FALSE.) THEN
WRITE(*,'(2A)') "There is no file by the name of: ", file
CYCLE
END IF
END DO
n= 0
DO
READ(11,*,IOSTAT=k)
IF(k.EQ.-1) EXIT
n=n+1
END DO
REWIND(11)
ALLOCATE(arrayi(n),arrayc(n),arrayr(n))
DO i=1,n,1
READ(11,'(I4,A,F12.2)') arrayi(i), arrayc(i), arrayr(i)
END DO
outer: DO
DO
WRITE(*,101)"How would you like to search the file?"
WRITE(*,101)"1) By record number"
WRITE(*,101)"2) By name"
WRITE(*,101)"3) By rating"
READ(*,*) searchtype
SELECT CASE (searchtype)
CASE(1)
WRITE(*,101) "Please enter the record number:"
READ(*,*) recordnum
m=0
DO i=1,n,1
IF (arrayi(i).EQ.recordnum) THEN
WRITE(*,'(I4,A,F12.2)')arrayi(i),arrayc(i), arrayr(i)
ELSE IF (i==n) THEN
write(*,*)"Sorry dude. The name you entered was not found. Search failed"
END IF
END DO
EXIT
CASE(2)
WRITE(*,101) "Please enter the name:"
READ(*,*) name
m=0
DO i=1,n
IF (name.EQ.arrayc(i)) THEN
WRITE(*,'(I4,A,F12.2)')arrayi(i), arrayc(i), arrayr(i)
ELSE IF (i==n) THEN
write(*,*)"Sorry dude. The name you entered was not found. Search failed"
END IF
END DO
EXIT
CASE(3)
WRITE(*,101) "This will return all graders greater than your search term"
WRITE(*,101) "Please enter the minimum grade:"
READ(*,*) grade
m=0
DO i=1,n,1
IF (arrayr(i).GT.grade) THEN
WRITE(*,'(I4,A,F12.2)')arrayi(i), arrayc(i), arrayr(i)
ELSE IF (i==n) THEN
write(*,*)"Sorry dude. The name you entered was not found. Search failed"
END IF
END DO
EXIT
CASE DEFAULT
WRITE(*,101) "Invalid entry. Please enter 1, 2, or 3."
CYCLE
END SELECT
END DO
inner: DO
WRITE(*,101)"Would you like to search again? (Y/N)"
READ(*,*)search
SELECT CASE (search)
CASE("Y","y")
CYCLE outer
CASE("N","n")
EXIT outer
CASE DEFAULT
WRITE(*,101)"Invalid entry. please enter Y or N."
CYCLE inner
END SELECT
END DO inner
END DO outer
END PROGRAM database
每次我在程序中选择 case(2)，然后在字符 arrayc 中输入我知道存在的名称时，它都会跳过 if 子句 where (name.EQ.arrayc) 并返回未找到该名称。请帮忙！我对其他方法持开放态度。我不明白为什么会这样。
这个链接上有一个截图：http: //tinypic.com/r/33tmmuc/6