我在测试一个模型，总是在一行报错，不能读取数据，模型比较大，不发源代码了。我只
把关键部分拿出来了，写了一个简单的程序，测试成功就可以！
先建立文件通道：
ln –s hno3loss_atmos.wkst fort.20 ! hno3loss_atmos.wks 文件被别人测试过，正确的
program ATMOS_2
real JHNO3(70,5,12) ！模式开发者是这样定义的
READ(20) JHNO3 ！模式开发者是这样读取的
write(*,*),JHNO3(1,1,1)
close(20)
end
