Commit 3e5d41e9 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

refract [TASK]: print reference to Seitosh

parent 991e477b
......@@ -38,7 +38,8 @@ c 24/10/2013 V1.9 - new option -So
c - new option -S3
c 18/11/2013 V1.10 new option -TF
c 21/03/2014 thof: new option -TR
c 07/12/2015 htof: new option -SN
c 07/12/2015 thof: new option -SN
c 27/02/2019 thof: print reference to Seitosh
c
c==============================================================================
c
......@@ -70,6 +71,10 @@ c go
print *,' [file ...]'
print *,' or: refract -help'
print *,' or: refract -xhelp'
print *,' '
print *,'REFRACTion seismics - data interpretation'
print *,'Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)'
call tf_seitosh_reference
return
end
c
......@@ -108,9 +113,6 @@ c go
c
if (iargc().lt.1) stop 'ERROR: missing arguments'
c
print *,' '
print *,'REFRACTion seismics - data interpretation'
print *,'Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)'
print *,' '
call usage_purpose
print *,' '
......
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