libseife [TASK]: replace tabs by whitespace

src/libs/libseife/subs/seife.f

@@ -130,21 +130,21 @@ c
 c  All input
 c  Seife main routine converted to a subroutine
 c-------------------------------------------------------------
-	subroutine seife(typ,par,n,dt,tmin,tsec,x,msg)
+      subroutine seife(typ,par,n,dt,tmin,tsec,x,msg)
       include 'seife_common.inc'
       character version*80
-	double precision x(n)
-	character typ*3, par*(*), msg*(*)
-	logical nil
+      double precision x(n)
+      character typ*3, par*(*), msg*(*)
+      logical nil
 c
       version='LIBSEIFE   V1.8   time domain signal processing'
       nil=.true.
       msg=' '
-	if(typ.eq.'lim') then
-		read(par,*) npts
-		n=min(n,npts)
-		nil=.false.
-	endif
+      if(typ.eq.'lim') then
+            read(par,*) npts
+            n=min(n,npts)
+            nil=.false.
+      endif
       if(typ.eq.'fac') call seife_factor(nil,par,x,n,msg)
       if(typ.eq.'nrm') call seife_normalize(nil,par,x,n,msg)
       if(typ.eq.'mim') call seife_mim(nil,par,x,n,msg)
@@ -153,8 +153,8 @@ c
       if(typ.eq.'spl') call seife_interp(nil,par,x,n,msg)
       if(typ.eq.'csi') call seife_intpo (nil,par,dt,x,n,msg)
       if(typ.eq.'win'.or.typ.eq.'sin'.or.typ.eq.'skp'.or.typ.eq.'tap'
-     &		.or.typ.eq.'sis'.or.typ.eq.'cos'.or.typ.eq.'cob') 
-     & 	call seife_window(nil,typ,par,x,n,dt,tmin,tsec,msg)
+     &               .or.typ.eq.'sis'.or.typ.eq.'cos'.or.typ.eq.'cob') 
+     &      call seife_window(nil,typ,par,x,n,dt,tmin,tsec,msg)
       if(typ.eq.'twi') call seife_timwin(nil,par,x,n,dt,tmin,tsec,msg)
       if(typ.eq.'nul') call seife_null(nil,par,x,n,msg)
       if(typ.eq.'clp') call seife_clip(nil,par,x,n,msg)
@@ -173,19 +173,19 @@ c
       if(typ.eq.'abs') call seife_abs(nil,par,x,n,msg)
       if(typ.eq.'fir') call seife_resetfirst(nil,par,x,n,.true.,msg)
       if(typ.eq.'rfi') call seife_resetfirst(nil,par,x,n,.false.,msg)
-	if(typ.eq.'lp1'.or.
-     1            typ.eq.'int'.or.
-     1		typ.eq.'hp1'.or.
-     1		typ.eq.'le1'.or.
-     1		typ.eq.'he1'.or.
-     1		typ.eq.'lp2'.or.
-     1		typ.eq.'hp2'.or.
-     1		typ.eq.'bp2'.or.
-     1		typ.eq.'le2'.or.
-     1		typ.eq.'he2'.or.
-     1		typ.eq.'lpb'.or.
-     1		typ.eq.'hpb') 
-     1                call seife_filter(nil,typ,par,x,n,dt,msg)
+      if(typ.eq.'lp1'.or.
+     1   typ.eq.'int'.or.
+     1   typ.eq.'hp1'.or.
+     1   typ.eq.'le1'.or.
+     1   typ.eq.'he1'.or.
+     1   typ.eq.'lp2'.or.
+     1   typ.eq.'hp2'.or.
+     1   typ.eq.'bp2'.or.
+     1   typ.eq.'le2'.or.
+     1   typ.eq.'he2'.or.
+     1   typ.eq.'lpb'.or.
+     1   typ.eq.'hpb') 
+     1       call seife_filter(nil,typ,par,x,n,dt,msg)
       if(typ.eq.'hel') call seife_help(nil,version,msg)
       if(typ.eq.'rem') call seife_remark(nil, typ, par, msg)
       if(typ.eq.'DBG') then

src/libs/libseife/subs/seife_decim.f

@@ -35,9 +35,9 @@ c  decimate time series by a factor up to 100
       logical nil
       read(par,*) idez
       if(idez.gt.100) then
-		write(msg,'(a)') 'ERROR: idez > 100'
-		return
-	endif
+        write(msg,'(a)') 'ERROR: idez > 100'
+        return
+      endif
       pih=2.d0*datan(1.d0)
       fidez=idez
       do 3 j=1,idez