这代码太难看了。

既然定义了 parameter n=5073

为什么后面又出现那么多 5074 ？？为什么不用 n 代替？

integer nb,v(n),j(n),na(n),i_error,va(m),jk(l)
va(m)
do k=0,m
va(k)=0

k=0 时， va 越界，Fortran数组从 1 开始，不像 C，从0开始

总之，错误太多。我又不知道你的意图，实在难以更改。

这些数据文件 v=a,j=b,theta=c 和EROT， EVIB和THETA设置成独立的文件

而且就我所知，你的数据文件中不要出现字母，然后你用个 openfile 
就很好弄了
很简单的程序