Commit e69dcd9c authored by thomas.forbriger's avatar thomas.forbriger

libseife [TASK]: replace tabs by whitespace

parent fcff54b3
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment