+++ /dev/null
-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
-