cleanup mnparc

Author: perazz

test/fitpack_tests.f90

@@ -2189,16 +2189,16 @@ logical function mnparc(iunit) result(success)
           end do approximations
 
          ! Format statements
-         910  format(31h0least-squares curve of degree ,i1,7h  ipar=,i1)
-         915  format(27h0smoothing curve of degree ,i1,7h  ipar=,i1)
-         920  format(20h smoothing factor s=,f7.2)
-         925  format(1x,23hsum squared residuals =,e15.6,5x,11herror flag=,i2)
-         930  format(1x,24htotal number of knots n=,i3)
-         935  format(1x,22hposition of the knots )
+         910  format('0least-squares curve of degree ',i1,'  ipar=',i1)
+         915  format('0smoothing     curve of degree ',i1,'  ipar=',i1)
+         920  format(' smoothing factor s=',f7.2)
+         925  format(1x,'sum squared residuals =',e15.6,5x,'error flag=',i2)
+         930  format(1x,'htotal number of knots n=',i3)
+         935  format(1x,'position of the knots ')
          940  format(5x,10f6.0)
-         945  format(1x,30hb-spline coefficients of sx(u))
+         945  format(1x,'b-spline coefficients of sx(u)')
          950  format(5x,8f8.4)
-         955  format(1x,30hb-spline coefficients of sy(u))
+         955  format(1x,'b-spline coefficients of sy(u)')         
          960  format(1h0,2(4x,'xi',7x,'yi',6x,'sx(ui)',3x,'sy(ui)'))
          965  format(1x,8f9.4)
         1000  format('[mnparc] parametric curve test ',i0,' failed: ',a)