Commit 19e7f8c0 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

corrections for gfortran environment

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: 2938
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent f5a26718
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.12 2009-10-08 11:29:33 tforb Exp $
# $Id: Makefile,v 1.13 2009-11-27 09:49:37 tforb Exp $
#
# Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
#
......@@ -132,7 +132,7 @@ gredaimsl: greda.o
/bin/mv -fv $@ $(LOCBINDIR)
greda: greda.o greda_phasor.o
$(FC) -o $@ $^ -lsffu -lts -ltf -llapex -lblasex \
$(FC) -o $@ $^ -lsffu -lts -ltf -llapack -lblas \
-lnumrec -ltime -lsff\
-L$(LOCLIBDIR) -L$(SERVERLIBDIR)
/bin/mv -fv $@ $(LOCBINDIR)
......
c this is <greda.f>
c------------------------------------------------------------------------------
c $Id: greda.f,v 1.20 2007-06-05 09:18:46 tforb Exp $
c $Id: greda.f,v 1.21 2009-11-27 09:49:37 tforb Exp $
c
c 24/06/97 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -96,6 +96,7 @@ c 16/09/02 V3.14 - write phasor walkout to file
c 28/03/06 V3.15 - apply special (offset dependent taper) after
c rescaling waveforms
c - corrected subroutine specialtap
c 27/11/09 V3.16 - some corrections to satify gfortran
c
c==============================================================================
c
......@@ -104,9 +105,9 @@ c
c first we declare some general variables
c
character*79 version,CVSID
parameter(version='GREDA V3.15 Greens function from data')
parameter(version='GREDA V3.16 Greens function from data')
parameter(CVSID=
& '$Id: greda.f,v 1.20 2007-06-05 09:18:46 tforb Exp $')
& '$Id: greda.f,v 1.21 2009-11-27 09:49:37 tforb Exp $')
c
c calculations common block
include 'greda_dim.inc'
......@@ -384,7 +385,7 @@ c
print *,'rho should be chosen somewhere around delta_r_min*omega,'
print *,'where delta_r_min is the minimal offset difference.'
print *,' '
print *,'$Id: greda.f,v 1.20 2007-06-05 09:18:46 tforb Exp $'
print *,'$Id: greda.f,v 1.21 2009-11-27 09:49:37 tforb Exp $'
call pwo_cvsid
print *,' '
print *,'compiled array dimensions are:'
......@@ -1397,7 +1398,7 @@ c get correct scaling factor to manipulate FORK
scal=dt*sqrt(float(newnsamp))
c calculate other values
nom=newnsamp/2+1
df=1/float(newnsamp*dt)
df=1/(newnsamp*dt)
if (nom.gt.maxom) stop 'ERROR: too many frequencies - check code'
print *,' transforming ',newnsamp,' samples to ',nom,' frequencies'
print *,' Nyquist frequency is ',(nom-1)*df,' Hz'
......@@ -1844,7 +1845,7 @@ c
include 'greda_dim.inc'
include 'greda_pwo.inc'
c
integer maxslo, nslo, ntr
integer nslo, ntr
real rhoq
complex ogreen(maxslo)
real slo(maxslo)
......@@ -2037,7 +2038,7 @@ c
include 'greda_dim.inc'
include 'greda_pwo.inc'
c
integer maxslo, nslo, ntr
integer nslo, ntr
real rho
complex ogreen(maxslo)
real slo(maxslo)
......@@ -2305,7 +2306,7 @@ c
include 'greda_dim.inc'
include 'greda_pwo.inc'
c
integer maxslo, nslo, ntr
integer nslo, ntr
real rhoq, omq
complex ogreen(maxslo)
real slo(maxslo)
......
Supports Markdown
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