New changes from l2g

w
2022-09-12 16:40:28 +00:00
parent 78eb7147d0
commit d713d4f61a
110 changed files with 87672 additions and 1098 deletions
@@ -17,7 +17,6 @@ CU    USES covsrt,gaussj
        ia(j)=1
        if(ia(j).ne.0) mfit=mfit+1
 11    continue
-      if(mfit.eq.0) pause 'lfit: no parameters to be fitted'
      do 13 j=1,mfit
        do 12 k=1,mfit
          covar(j,k)=0.0d0