New changes from l2g

w

dataassim/math/optimization/odr_leastsquare.f

@@ -24,7 +24,6 @@ C  VARIABLE DECLARATIONS
       double precision weity(N,NQ),weitx(N,M),shorty(N,NQ),
      &shortx(N,M),fvalue,BETA(NP),X(N,M),Y(N,NQ)
       EXTERNAL FCN
-      
       LWORK=18+11*NP+NP**2+M+M**2+4*N*NQ+6*N*M+2*N*NQ*NP+
      &2*N*NQ*M+NQ**2+5*NQ+NQ*(NP+M)+N*1*NQ
       LIWORK=20+NP+NQ*(NP+M)
@@ -96,7 +95,7 @@ C  VARIABLE DECLARATIONS
      +                 WORK(LWORK),X(N,M),Y(N,NQ)
 !------------For using information in WORK----------------------------
       LOGICAL
-     +	ISODR
+     +ISODR
       INTEGER
      +   DELTAI,EPSI,XPLUSI,FNI,SDI,VCVI,
      +   RVARI,WSSI,WSSDEI,WSSEPI,RCONDI,ETAI,
@@ -105,7 +104,7 @@ C  VARIABLE DECLARATIONS
      +   BETA0I,BETACI,BETASI,BETANI,SI,SSI,SSFI,QRAUXI,UI,
      +   FSI,FJACBI,WE1I,DIFFI,
      +   DELTSI,DELTNI,TI,TTI,OMEGAI,FJACDI,
-     +	 WRK1I,WRK2I,WRK3I,WRK4I,WRK5I,WRK6I,WRK7I,
+     +   WRK1I,WRK2I,WRK3I,WRK4I,WRK5I,WRK6I,WRK7I,
      +   LWKMN
 c
       integer i1,i2,i3,i4,i5,iderivative
@@ -230,7 +229,7 @@ C  READ PROBLEM DATA, AND SET NONDEFAULT VALUE FOR ARGUMENT IFIXX
      +   BETA0I,BETACI,BETASI,BETANI,SI,SSI,SSFI,QRAUXI,UI,
      +   FSI,FJACBI,WE1I,DIFFI,
      +   DELTSI,DELTNI,TI,TTI,OMEGAI,FJACDI,
-     +	 WRK1I,WRK2I,WRK3I,WRK4I,WRK5I,WRK6I,WRK7I,
+     +   WRK1I,WRK2I,WRK3I,WRK4I,WRK5I,WRK6I,WRK7I,
      +   LWKMN)
       fvalue=0.0d0
       do I=1,N