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

moved to gfortran

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: 2956
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 93f9b778
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.15 2008-09-15 16:01:38 tforb Exp $
# $Id: Makefile,v 1.16 2010-01-18 08:35:37 tforb Exp $
#
# Copyright (c) 2008 by Thomas Forbriger (BFO Schiltach)
#
......@@ -15,6 +15,8 @@
# NOTICE: fallback solution (f2c is default) can be activated by the
# environment variable TF_FALLBACK
# This option will disappear somewhere in the future!
ALL=dig gresy gresynoise syg rhesyg
all: $(ALL)
F2CLIB=-lf2c -lm -L${SERVERLIBDIR}
F2CFLAGS=-f -u
......@@ -142,7 +144,7 @@ syg: syg.o
gresynoise: gresynoise.o nyquist_check.o
$(FC) -o $(LOCBINDIR)/$@ $^ -lgrrefsub -lrefread \
-ltf -lgsl -lgslcblas $(LIBSTUFF) -L$(LOCLIBDIR)
-ltf -lgsl -lgslcblas -lsff -L$(LOCLIBDIR)
gresy: gresy.o nyquist_check.o
$(FC) -o $(LOCBINDIR)/$@ $^ -lgrrefsub -lrefread \
......
c this is <dig.f>
c------------------------------------------------------------------------------
c
c $Id: dig.f,v 1.3 2000-05-09 18:35:03 thof Exp $
c $Id: dig.f,v 1.4 2010-01-18 08:35:37 tforb Exp $
c
c 26/11/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -39,7 +39,7 @@ c
real fmax, umax, length, fixom
real om(mom), u(mu)
c
integer i, j, iargc, index
integer i, j, index
real pi
parameter(pi=3.14159265)
c
......
c this is <gresynoise.f>
c ----------------------------------------------------------------------------
c ($Id: gresynoise.f,v 1.24 2007-10-23 13:47:31 tforb Exp $)
c ($Id: gresynoise.f,v 1.25 2010-01-18 08:35:37 tforb Exp $)
c
c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
c
......@@ -75,7 +75,7 @@ c
&'GRESYNOISE V1.12 calculate noise seismograms')
character*(*) GRESYNOISE_CVS_ID
parameter(GRESYNOISE_CVS_ID=
&'$Id: gresynoise.f,v 1.24 2007-10-23 13:47:31 tforb Exp $')
&'$Id: gresynoise.f,v 1.25 2010-01-18 08:35:37 tforb Exp $')
c
c dimensions
integer maxtr, maxsetsamp, maxom, maxu, maxset, maxsamp
......@@ -135,7 +135,7 @@ c source response
complex ime
parameter(ime=(0.,1.))
c any
integer lu, i, iargc, ierr, io, iu, is
integer lu, i, ierr, io, iu, is
real*8 pi2, arg, du, dom, scal, pi
parameter(lu=20,pi=3.141592653589793115997)
c functions
......@@ -395,7 +395,7 @@ c check trapezoid rule stepsize
rmax=r(1)
do i=1,ntr
rmax=max(rmax,r(i))
call checkslownesssampling(sngl(r(i)),sngl(du),sngl(Zom(Znom)))
call checkslownesssampling(sngl(r(i)),sngl(du),Zom(Znom))
enddo
c
if (Zom(1).gt.(0.01*dom))
......@@ -694,7 +694,7 @@ c prepare wid2line
if (debug) print *,'written'
if (ierr.ne.0) stop 'ERROR: writing trace'
c final check
call checkslownesssampling(sngl(rmax),sngl(du),sngl(Zom(Znom)))
call checkslownesssampling(sngl(rmax),sngl(du),Zom(Znom))
c----------------------------------------------------------------------
c report rms values if verbose
if (reportrms) then
......
# $id:$
#
# Makefile for prog/synth/rheology
#
# programs to invert a flat greens matrix
#
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.5 2010-01-18 08:35:11 tforb Exp $
#
# Copyright (c) 2010 by Thomas Forbriger (BFO Schiltach)
#
# rheology library
# 05/01/2003 V1.1 added C++ sections
#
# REVISIONS and CHANGES
# 18/01/2010 V1.0 Thomas Forbriger
#
# ============================================================================
#
# moved to gfortran
#
all: install
install: librheology.a rhetest
F2CLIB=-lm -lf2c -L${SERVERLIBDIR}
F2CFLAGS=-f -u
PGPLOTLIB=-lf2cpgplot -lX11 -L/usr/X11/lib
CC=gcc
CFLAGS=-O2 -I${SERVERINCLUDEDIR} -I${LOCINCLUDEDIR}
LIBOBS=rl_sls.o rl_qtrans.o
FLAGS += $(MYFLAGS)
CFLAGS += -O2 $(FLAGS)
FFLAGS += -ff2c -Wall -ffixed-line-length-none $(FLAGS)
ifeq ($(TF_FALLBACK),yes)
# fallback solution: f2c is default
.f.o:
f2c $(F2CFLAGS) $<
$(CC) $(CFLAGS) $(<:.f=.c) -c
@rm $(<:.f=.c)
else
%.o: %.f; $(FC) -c -o $@ $< $(FFLAGS)
endif
# Target clean removes everything except the source code, headers and
# documentation. (See also doxyclean)
......@@ -49,14 +65,22 @@ include make.dep
docs: $(DOCS)
LIBOBS=rl_sls.o rl_qtrans.o
librheology.a: $(LIBOBS)
ar rcv librheology.a $(LIBOBS)
ranlib librheology.a
newlib librheology.a
ar rcv $@ $^
ranlib $@
/bin/mv -fv $@ $(LOCLIBDIR)
rhetest: rhetest.o
ifeq ($(TF_FALLBACK),yes)
# fallback solution: f2c is default
rhetest: rhetest.o librheology.a
gcc -o $(LOCBINDIR)/rhetest rhetest.o -lrheology \
-ltf $(F2CLIB) -L$(LOCLIBDIR)
else
rhetest: rhetest.o librheology.a
$(FC) -o $(LOCBINDIR)/rhetest rhetest.o -lrheology \
-ltf -L$(LOCLIBDIR)
endif
#======================================================================
# C++ section
......@@ -230,3 +254,5 @@ doxyfullview doxybriefview: doxy%view: doxy%
doxyview: doxydoc doxyfullview
# ----- END OF Makefile -----
# ----- END OF Makefile -----
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