fortran中常常需要提取字符串中可见字符的索引,下面是个小例子: !============================================================= subroutine TrimIndex(InStr,LeftIndex,RightIndex,status) !------------------------------------------------------------ !---识别InStr中左右有效可见字符(33-126)的索引 !-…