Commit 52a33ed2 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

use compatible help statements in libsff and libdatrwxx

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/branches/libdatrwxx.su
SVN Revision: 3493
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 6561485d
......@@ -97,6 +97,8 @@ namespace datrw {
os << std::endl
<< "Online help obtained from data extraction facilities:"
<< std::endl;
os << "-----------------------------------------------------"
<< std::endl << std::endl;
os << "SFF data input: "; isffstream::help(os);
os << std::endl;
os << "SFF data output: "; osffstream::help(os);
......@@ -161,8 +163,9 @@ namespace datrw {
void supported_data_types(std::ostream& os)
{
os << "data formats supported for reading:" << std::endl;
os << "-----------------------------------" << std::endl << std::endl;
os << "-----------------------------------" << std::endl;
supported_input_data_types(os);
os << std::endl;
os << "data formats supported for writing:" << std::endl;
os << "-----------------------------------" << std::endl;
supported_output_data_types(os);
......
......@@ -41,7 +41,8 @@ c
c Print online help
c
cE
print *,'This is the Fortran version of libsff'
print *,'This program is linked against the Fortran version of'
print *,'libsff. Only generic SFF data is supported.'
return
end
cD
......
......@@ -38,6 +38,15 @@
# libtime.a: package libtime
# libts.a: package libts
# These five packages can be obtained from where you got this package.
#
# refractx additionally requires:
# libfapidxx.a
# libdatrwxx.a
# libsffxx.a
# libgsexx.a
# libtime++.a
# libaff.a
# refractx further links against the C++ standard library (libstdc++.a)
#
# PGPLOT Graphics Subroutine Library by T. J. Pearson version 5.2
# can be obtained from: www.astro.caltech.edu/~tjp/pgplot/
......
......@@ -77,6 +77,8 @@ c
if (iargc().eq.1) call getarg(1, argument)
if ((argument(1:5).eq.'-help').or.(iargc().lt.1)) then
call refract_usage(version)
elseif (argument(1:6).eq.'-xhelp') then
call refract_usage_formats(version)
endif
c
c------------------------------------------------------------------------------
......
......@@ -33,17 +33,11 @@ c 09/09/2004 V1.4 introduced plflag_tracenum
c
c==============================================================================
c
subroutine refract_usage(version)
subroutine refract_usage_short(version)
c
c declare parameters
character*(*) version
c
cE
c declare local variables
integer iargc
character*(*) refract_usage_id
parameter (refract_usage_id='$Id$')
c
c------------------------------------------------------------------------------
c go
print *,version
......@@ -63,12 +57,54 @@ c go
print *,' [h:h,l,s] [r:r,g,b]'
print *,' [file ...]'
print *,' or: refract -help'
print *,' or: refract -xhelp'
return
end
c
cS
c----------------------------------------------------------------------
c
subroutine refract_usage_formats(version)
c
c declare parameters
character*(*) version
c
cE
c go
call refract_usage_short(version)
print *,' '
call sff_help_details
c
stop
end
c
cS
c----------------------------------------------------------------------
c
subroutine refract_usage(version)
c
c declare parameters
character*(*) version
c
cE
c declare local variables
integer iargc
character*(*) refract_usage_id
parameter (refract_usage_id=
& '$Id$')
c
c------------------------------------------------------------------------------
c go
call refract_usage_short(version)
c
if (iargc().lt.1) stop 'ERROR: missing arguments'
c
print *,' '
print *,'REFRACTion seismics - data interpretation'
print *,'09/01/98 by Thomas Forbriger (IfG Stuttgart)'
print *,'Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)'
print *,' '
print *,'-help print online help to terminal'
print *,'-xhelp print online help on file formats to terminal'
print *,' '
print *,'-D debug'
print *,'-d dev output device'
......@@ -235,6 +271,8 @@ c
call help_menu_readwrite
print *,' '
call pgp_showdevices
print *,' '
call sff_help_formats
stop
c
c the following line prevents the linker from removing the ID string
......
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