Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Seitosh
Seitosh
Commits
e69dcd9c
Commit
e69dcd9c
authored
Jun 22, 2020
by
thomas.forbriger
Browse files
libseife [TASK]: replace tabs by whitespace
parent
fcff54b3
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/libs/libseife/subs/seife.f
View file @
e69dcd9c
...
...
@@ -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
View file @
e69dcd9c
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment