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)