Fortran提取所需数据问题

地表植被

第一张图第一列是站名，我现在想根据站名来将该站的经纬度、海拔高度及降水数据提取出来，我写了程序，但是一直在报错，请教各位大神要怎么改这个程序？
program chazhao
implicit none
integer num1, num2
character n
integer aa(9)
character(len=76) str
logical :: alive
inquire(file = 'E:\\paper\\data\\1991data.txt', exist = alive)
open (unit = 30, file = 'E:\\paper\\data\\1991tiqudata.txt')
if (alive) then
open (unit = 10, file = 'E:\\paper\\data\\1991data.txt', access = 'sequential', status = 'old')
read(10,*) n
read(10,*) num1,num2
if (n .EQ. str) then
  write(30,*) "sta   ", "lat  ", "lon    ", "high ","year ", "month ", "20-8h  ", "8-20h ","20-20h"
else if (num2 .EQ. 50247) then
  read (30,*) aa(9)
  write(30,*) aa(9)
else
write(*,*) "E:\\paper\\data\\1991data.txt", "doesn't exist"
end if
end if
close(10,status = 'KEEP' )
close(30,status = 'KEEP' ) !close and keep two files
stop
end

王磊

你应该给出错误提示，没有人愿意直接看你的代码然后判断哪里出了问题

地表植被

这是程序编译后报的错误，嘿嘿，忘记一起放上去了