fortran 中字符串數字混合讀取

參考此處帖子 ：http://bbs.lasg.ac.cn/?action-viewthread-tid-14968

需要讀取數據如下

 zone  i=        2001    j=         151

讀取方法如下：

	read(77,'(a)')str
	ip=index(str,"=") 
	str(1:ip)=''
	ip=index(str,'=')
	str(ip-1:ip)=''
	read(str,*)i,j