1 c===========================================================================
3 c This file is part of TISEAN
5 c Copyright (c) 1998-2007 Rainer Hegger, Holger Kantz, Thomas Schreiber
7 c TISEAN is free software; you can redistribute it and/or modify
8 c it under the terms of the GNU General Public License as published by
9 c the Free Software Foundation; either version 2 of the License, or
10 c (at your option) any later version.
12 c TISEAN is distributed in the hope that it will be useful,
13 c but WITHOUT ANY WARRANTY; without even the implied warranty of
14 c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 c GNU General Public License for more details.
17 c You should have received a copy of the GNU General Public License
18 c along with TISEAN; if not, write to the Free Software
19 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
21 c===========================================================================
23 c Utilities for usage message
24 c author T. Schreiber (1998)
25 c===========================================================================
26 subroutine whatido(text,iverb)
30 call getarg(0,progname)
33 if(iv_io(iverb).eq.1) then
35 write(istderr(),'(a)')
36 . "TISEAN 3.0.1 (C) R. Hegger, H. Kantz, T. Schreiber
39 write(istderr(),'(a,a,a)')
40 . progname(1:index(progname," ")-1), ": ", text
42 if(lopt("h",1).eq.1) call usage()
45 subroutine whatineed(text)
49 call getarg(0,progname)
51 write(istderr(),'(a,a,x,a)')
52 . "Usage: ", progname(1:index(progname," ")-1), text
55 subroutine popt(c,text)
58 write(istderr(),'(5h -,a,x,1h<,a,1h>)') c, text
61 subroutine ptext(text)
64 write(istderr(),'(3x,a)') text
70 write(istderr(),'(8h -o <,a,a,1h>)')
71 . "output file name, just -o means ", text
76 call popt("V","verbosity level (0 = only fatal errors)")
77 call popt("h","show this message")