Commit 747c21e7 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

prepared source code for publication

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 5163
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent ca6539b6
......@@ -7,12 +7,12 @@ c
c annotate with filenames
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c plot a frame
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c activate main frame
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c scale filenames
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c plot parameter settings
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c plot one trace
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
c this is <refract_preread.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_preread.f,v $)
c ($Id$)
c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......@@ -41,7 +40,8 @@ c
cE
c declare local variables
character*(*) refract_preread_id
parameter (refract_preread_id='$Id$')
parameter (refract_preread_id=
& '$Id$')
c
character*80 comment
c
......
......@@ -7,12 +7,12 @@ c
c read a complete set of data files
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
c this is <refract_selfilestyle.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_selfilestyle.f,v $)
c ($Id$)
c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c select plotting style for trace
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c set default values for plot options and scaling
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c change flag settings
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -8,12 +8,12 @@ c set world coordinates according to the full scale of the whole set of
c seismograms
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c control parameter settings
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c set default scaling
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c set viewport and world coordinate values for a specific trace
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c set viewport and world coordinate values for a specific trace
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c Skip a full SFF data block
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
......@@ -7,12 +7,12 @@ c
c two functions that will calculate traveltime reduction
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......
c this is <refract_usage.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_usage.f,v $)
c ($Id$)
c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c refract is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c refract is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
......@@ -110,6 +109,8 @@ c
print *,'REFRACTion seismics - data interpretation'
print *,'Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)'
print *,' '
call usage_purpose
print *,' '
print *,'-help print online help to terminal'
print *,'-xhelp print online help on file formats to terminal'
print *,' '
......@@ -318,4 +319,43 @@ c the following line prevents the linker from removing the ID string
99 print *, refract_usage_id
end
c
c----------------------------------------------------------------------
c
subroutine usage_purpose
c
print *,'Purpose'
print *,' - plots of seismic waveforms arranging the '
& ,'traces along an offset axis'
print *,' for waveform comparison'
print *,' - refracted wave travel-time inversion to '
& ,'subsurface model'
print *,' - picking of arrival times'
print *,' - definition of offset dependent waveform '
& ,'tapers'
print *,' '
print *,'Features'
print *,' - supports interactive as well as '
& ,'non-interactive plotting'
print *,' - graphics output is done through PGPLOT '
& ,'featuring a variety of devices and'
print *,' graphics formats (including Postscript, '
& ,'X11, Tektronix, PNG, GIF, etc)'
print *,' - supports a variety of input formats '
& ,'including SeismicUn*x and raw ASCII'
print *,' (through libdatrwxx)'
print *,' - appearance of plots can be controlled by '
& ,'many parameters'
print *,' (color, line width, etc)'
print *,' - plotting on velocity reduced time scale'
print *,' - comparing shallow seismic shot data with '
& ,'true amplitudes'
print *,' - display of synthetic arrival times of '
& ,'refracted and reflected waves'
print *,' together with waveforms'
print *,'...'
print *,' …'
c
return
end
c
c ----- END OF refract_usage.f -----
Supports Markdown
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