有几个地方需要用 END of Statement 而不是，
你根据它提示的行数，去查找修改。
1 我的代码
SUBROUTINE Str_DocNoBlank(Doc)
character*80,Doc
!trim(adjustl(Doc))
nlen = LEN_TRIM(Doc)
Doc = Doc(1:nlen)//char(0)
end subroutine Str_DocNoBlank
2 出错语句（直接屏蔽掉）
!trim(adjustl(Doc))
3 修改后 （没报错，结果待验证）
SUBROUTINE Str_DocNoBlank(Doc)
character Doc*80
real numBlank
doc = adjustl(Doc)
len = LEN_TRIM(Doc)
Doc = Doc(1:nlen)//char(0)
doc = ADJUSTR(doc)
!num = trim(adjustl(Doc))
nlen = LEN_TRIM(Doc)
Doc = Doc(1:nlen)//char(0)
end subroutine Str_DocNoBlank
内容全部来源于网络收集，如有侵权，请联系网站删除！