请教一个字符串的替换问题

nsnmb

有这样的问题，我只是想把如下的一个字符串中的；替换为空格，这个字符串是这样的额：
4.000000E+01 ;-1.017048E-04 ;-2.623959E-04 ; 2.142755E-04 ; 3.810418E-05 ;-2.681793E-04 ; 3.918541E-04 ;-1.449753E-04 ;-1.210526E-04 ; 3.135568E-04 ;-1.234638E-04 ;-9.060071E-05 ; 5.159999E-04
我把这个字符串放在了array中。我是用这样的一段程序：
                character*192 array
                character×1  mh
                mh=';'

        read(13,'(a)')array

                do j=1,192
                        if  (  array( j:  (j+1)  ).  eq.  mh)   then
                               array ( j:  (j+1)  )=achar(32)
                        endif
                enddo
可是每次我运行，有一部分；替换掉了，可是还有一部分还在那里，请哪位朋友看一下，我觉得是那个循环中有问题，可是又找不到原因，斑竹，help啊

[ 本帖最后由 nsnmb 于 2008-11-4 14:03 编辑 ]

nsnmb

搞定！
不应该是 j : j+1 是j : j

zhoulon

鼓励自己解决问题，然后将解决方式进行上传。