do 30, i = 0, n-1 call VecSetValues(x,1,i,one,ADD_VALUES,ierr) 30 continue
FROTRAN 中do语句，标号没有缩进，否则会出现如下错误：
In file petsc.F:35 100 continue 1 Error: Unclassifiable statement at (1)
