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

[TASK] (unix): convert to UNIX character set

Conversion by application of
convert-to-unix.sh as provided on branch workbench

- convert IBM DOS character set to utf8
- convert CRLF line endings to LF
- convert tab characters to spaces
parent 6c24e786
This diff is collapsed.
Calibration of 10 Hz geophone No. 10_Q in a half-bridge
data\eing1 input to seismo (file name)
data\ausg1 output from seismo (file name)
0.05 alias
4 m
0 m0
0 m1
1 m2
60 maxit
1e-5 qac
1e-3 finac
101 ns1
0 ns2
amp 1.2 0.2
del 0. 0.
sub 0.5 0.2
til 0. 0.
bp2
per 0.1 0.01
dmp 0.6 0.1
end
Calibration of 10 Hz geophone No. 10_Q in a half-bridge
data\eing1 input to seismo (file name)
data\ausg1 output from seismo (file name)
0.05 alias
4 m
0 m0
0 m1
1 m2
60 maxit
1e-5 qac
1e-3 finac
101 ns1
0 ns2
amp 1.2 0.2
del 0. 0.
sub 0.5 0.2
til 0. 0.
bp2
per 0.1 0.01
dmp 0.6 0.1
end
calibration of an old 20 s STS2
data\eing2 input to seismo (file name)
data\ausg2 output from seismo (file name)
0.5 alias
4 m
0 m0
0 m1
1 m2
60 maxit
1e-5 qac
1e-3 finac
1 ns1
0 ns2
amp 1. 0.5
del 0.01 0.001
sub 0. 0.
til 0. 0.
bp2
per 20. 2.
dmp 0.7 0.1
end
calibration of an old 20 s STS2
data\eing2 input to seismo (file name)
data\ausg2 output from seismo (file name)
0.5 alias
4 m
0 m0
0 m1
1 m2
60 maxit
1e-5 qac
1e-3 finac
1 ns1
0 ns2
amp 1. 0.5
del 0.01 0.001
sub 0. 0.
til 0. 0.
bp2
per 20. 2.
dmp 0.7 0.1
end
This diff is collapsed.
'calibration of STS2 # 80444 on the Lennartz step table'
'data\disp.zz' name of data file
'STS2 #80444' type and serial no. of seismo
120. free period of seismometer (s)
0.707 fraction of critical damping
0.596 microvolts per count
0.903 displacement in millimeters per step
0.5 safety distance from pulse flanks in seconds - see NOTE
0. 0 corner period (s) and order of low-pass filter (none if 0.,0)
.false. print list of pulses
1.013 correction factor Q330HR without Monitor
NOTE: safety distance is also the minimum averaging length. The entry 0 will
cause the program to try five values from 0.125 to 2.000.
1.013 correction factor Q330HR without Monitor
1.014 correction factor Q330HR plus Monitor 25 V
1.022 correction factor Q330HR plus Monitor 2.5 V
'calibration of STS2 # 80444 on the Lennartz step table'
'data\disp.zz' name of data file
'STS2 #80444' type and serial no. of seismo
120. free period of seismometer (s)
0.707 fraction of critical damping
0.596 microvolts per count
0.903 displacement in millimeters per step
0.5 safety distance from pulse flanks in seconds - see NOTE
0. 0 corner period (s) and order of low-pass filter (none if 0.,0)
.false. print list of pulses
1.013 correction factor Q330HR without Monitor
NOTE: safety distance is also the minimum averaging length. The entry 0 will
cause the program to try five values from 0.125 to 2.000.
1.013 correction factor Q330HR without Monitor
1.014 correction factor Q330HR plus Monitor 25 V
1.022 correction factor Q330HR plus Monitor 2.5 V
This diff is collapsed.
'calibration of an STS2 on the CALTAB_1 step table'
'data\z2z.sfe' name of first data file
'data\z2x.sfe' name of second data file
'data\z2y.sfe' name of third data file
'STS2 ConradObs' type and serial no. of seismo
120. free period of seismometer (s)
0.707 fraction of critical damping
1.e6 microvolts per count
1. displacement in millimeters per step
0.1 safety distance from pulse edge in seconds - see NOTE
0. corner period (s) of low-pass filter (none if 0.)
.false. print list of pulses
1.0 correction factor
NOTE: safety distance is also the minimum averaging length.
1.013 correction factor Q330HR without Monitor
1.014 correction factor Q330HR plus Monitor 25 V
1.022 correction factor Q330HR plus Monitor 2.5 V
'calibration of an STS2 on the CALTAB_1 step table'
'data\z2z.sfe' name of first data file
'data\z2x.sfe' name of second data file
'data\z2y.sfe' name of third data file
'STS2 ConradObs' type and serial no. of seismo
120. free period of seismometer (s)
0.707 fraction of critical damping
1.e6 microvolts per count
1. displacement in millimeters per step
0.1 safety distance from pulse edge in seconds - see NOTE
0. corner period (s) of low-pass filter (none if 0.)
.false. print list of pulses
1.0 correction factor
NOTE: safety distance is also the minimum averaging length.
1.013 correction factor Q330HR without Monitor
1.014 correction factor Q330HR plus Monitor 25 V
1.022 correction factor Q330HR plus Monitor 2.5 V
0, 9, 24, 16, 1, 12500, 0.8
data\z2z.dat
data\z2z.vel
data\z2z.dis
data\z2x.dat
data\z2x.vel
data\z2x.dis
data\z2y.dat
data\z2y.vel
data\z2y.dis
Program DISPCAL v.8 first data file: data\z2z.dat
0, 9, 24, 16, 1, 12500, 0.8
data\z2z.dat
data\z2z.vel
data\z2z.dis
data\z2x.dat
data\z2x.vel
data\z2x.dis
data\z2y.dat
data\z2y.vel
data\z2y.dis
Program DISPCAL v.8 first data file: data\z2z.dat
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
c . 1 . 2 . 3 . 4 . 5 . 6 . 7
c Demultiplexen von mehrspaltigen Datensaetzen, max. 7 Spalten
c
program demux
use nas_system
real*4 x(7)
character*72 text
character*24 runs,infile
character*7 outfile(7)
narg=iargc()
if(narg.lt.3) then
write(6,'(/"Aufruf: demux infile nskip nch"/
& "nskip: Anzahl Headerzeilen (ueberspringen)"/
& "nch: Anzahl Spalten (Signalkanaele)")')
stop
endif
call getarg(1,infile)
call getarg(2,runs)
read(runs,*) nskip
call getarg(3,runs)
read(runs,*) nch
icount=0
open(7,file=infile,status='old')
write(6,*) 'reading file ',infile
do i=1,nskip
read(7,'(a72)') text
write(6,*) text
enddo
do j=1,nch
write(outfile(j),'("demux.",i1)') j
open(7+j,file=outfile(j))
enddo
do
read(7,*,end=999) (x(j),j=1,nch)
icount=icount+1
do j=1,nch
write(7+j,*) x(j)
enddo
enddo
999 write(6,*) icount,' lines of data were read'
end
c . 1 . 2 . 3 . 4 . 5 . 6 . 7
c Demultiplexen von mehrspaltigen Datensaetzen, max. 7 Spalten
c
program demux
use nas_system
real*4 x(7)
character*72 text
character*24 runs,infile
character*7 outfile(7)
narg=iargc()
if(narg.lt.3) then
write(6,'(/"Aufruf: demux infile nskip nch"/
& "nskip: Anzahl Headerzeilen (ueberspringen)"/
& "nch: Anzahl Spalten (Signalkanaele)")')
stop
endif
call getarg(1,infile)
call getarg(2,runs)
read(runs,*) nskip
call getarg(3,runs)
read(runs,*) nch
icount=0
open(7,file=infile,status='old')
write(6,*) 'reading file ',infile
do i=1,nskip
read(7,'(a72)') text
write(6,*) text
enddo
do j=1,nch
write(outfile(j),'("demux.",i1)') j
open(7+j,file=outfile(j))
enddo
do
read(7,*,end=999) (x(j),j=1,nch)
icount=icount+1
do j=1,nch
write(7+j,*) x(j)
enddo
enddo
999 write(6,*) icount,' lines of data were read'
end
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
asc tdata3\allwdo.asc tdata3\allwdoa.sfe 10. 0
avg 0
tim 866. 12.544
fac -0.0033
rem pressure now in pascals
hpb 3600. 3
twi 2450. 0. 6283. 20.
end frei
asc tdata3\allwdo.asc tdata3\allwdoa.sfe 10. 0
avg 0
tim 866. 12.544
fac -0.0033
rem pressure now in pascals
hpb 3600. 3
twi 2450. 0. 6283. 20.
end frei
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
asl data\tritest2.1 data\tritest2.1t
asl data\tritest2.2 data\tritest2.2t
asl data\tritest2.3 data\tritest2.3t
lim 120000
end (7f8.0)
asl data\tritest2.1 data\tritest2.1t
asl data\tritest2.2 data\tritest2.2t
asl data\tritest2.3 data\tritest2.3t
lim 120000
end (7f8.0)
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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