Commit 39599bfc authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

removed dist.f: program is too simple and was not used for a long time

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/trunk
SVN Revision: 5409
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 5cddc5ad
c this is <dist.f>
c ----------------------------------------------------------------------------
c ($Id$)
c
c Copyright (c) 2010 by Thomas Forbriger (BFO Schiltach)
c
c ----
c This program 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 This program 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 this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c a quick hack to generate distance files
c
c
c REVISIONS and CHANGES
c 17/12/2010 V1.0 Thomas Forbriger
c
c ============================================================================
c
program dist
integer n,i
real from, dx
character*30 a,b,c
c
if (iargc().ne.3) then
print *,'Usage: dist from dx n'
stop 'ERROR: wrong arguments'
endif
call getarg(1,a)
call getarg(2,b)
call getarg(3,c)
read(a, *) from
read(b, *) dx
read(c, *) n
do 1 i=0,n-1
print *,from+i*dx
1 continue
stop
end
c
c ----- END OF dist.f -----
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