Adding DisEMBL dependency Tisean executable

[jabaws.git] / binaries / src / disembl / Tisean_3.0.1 / source_f / help.f

diff --git a/binaries/src/disembl/Tisean_3.0.1/source_f/help.f b/binaries/src/disembl/Tisean_3.0.1/source_f/help.f
new file mode 100644 (file)
index 0000000..77dbdb9
--- /dev/null
+++ b/binaries/src/disembl/Tisean_3.0.1/source_f/help.f
@@ -0,0 +1,80 @@
+c===========================================================================
+c
+c   This file is part of TISEAN
+c 
+c   Copyright (c) 1998-2007 Rainer Hegger, Holger Kantz, Thomas Schreiber
+c 
+c   TISEAN 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   TISEAN 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
+c   You should have received a copy of the GNU General Public License
+c   along with TISEAN; if not, write to the Free Software
+c   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+c
+c===========================================================================
+c   help.f
+c   Utilities for usage message
+c   author T. Schreiber (1998)
+c===========================================================================
+      subroutine whatido(text,iverb)
+      character*72 progname
+      character*(*) text
+
+      call getarg(0,progname)
+      call argdel(0)
+      iverb=igetv(iverb)
+      if(iv_io(iverb).eq.1) then
+         write(istderr(),'()')  
+         write(istderr(),'(a)') 
+     .              "TISEAN 3.0.1 (C) R. Hegger, H. Kantz, T. Schreiber
+     .(1998-2007)"
+         write(istderr(),'()')  
+         write(istderr(),'(a,a,a)') 
+     .      progname(1:index(progname," ")-1), ": ", text
+      endif
+      if(lopt("h",1).eq.1) call usage()
+      end
+
+      subroutine whatineed(text)
+      character*72 progname
+      character*(*) text
+
+      call getarg(0,progname)
+      write(istderr(),'()') 
+      write(istderr(),'(a,a,x,a)') 
+     .   "Usage: ", progname(1:index(progname," ")-1),  text
+      end
+
+      subroutine popt(c,text)
+      character*(*) c,text
+
+      write(istderr(),'(5h    -,a,x,1h<,a,1h>)') c, text
+      end
+
+      subroutine ptext(text)
+      character*(*) text
+
+      write(istderr(),'(3x,a)') text
+      end
+
+      subroutine pout(text)
+      character*(*) text
+
+      write(istderr(),'(8h    -o <,a,a,1h>)') 
+     .   "output file name, just -o means ", text
+      end
+
+      subroutine pall()
+
+      call popt("V","verbosity level (0 = only fatal errors)")
+      call popt("h","show this message")
+      write(istderr(),'()')
+      end
+