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

migration 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: 3055
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 369cab27
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.2 2002-03-21 15:40:51 forbrig Exp $
# $Id: Makefile,v 1.3 2010-06-08 15:21:36 tforb Exp $
#
# Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
#
......@@ -47,10 +47,15 @@ libttsynt.a: $(LIBOBS)
#%.o: %.f
# g77 $(OPTFLAG) -c -o $@ $< $(G77FLAGS)
ifeq ($(TF_FALLBACK),yes)
%.o: %.f
f2c $(F2CFLAGS) $<
$(CC) $(CFLAGS) $(<:.f=.c) -c
@rm $(<:.f=.c)
else
%.o: %.f
$(FC) -O2 -o $@ -c $< $(FFLAGS)
endif
make.dep: *.f
incdep > make.dep
......
c this is <tt_readgrmod.f>
c------------------------------------------------------------------------------
cS
c $Id: tt_readgrmod.f,v 1.2 2002-03-21 15:40:51 forbrig Exp $
c $Id: tt_readgrmod.f,v 1.3 2010-06-08 15:21:36 tforb Exp $
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -49,11 +49,12 @@ c
& filename(1:index(filename,' ')-1),''''
open(lu,file=filename,err=99,status='old')
read(lu,'(/i20//)',err=98) nlay
if (nlay.gt.(maxlay-1)) stop 'ERROR (tt_readgrmodel): too many layers'
if (nlay.gt.(maxlay-1))
& stop 'ERROR (tt_readgrmodel): too many layers'
do i=1,nlay
read(lu,*,err=98) d(i+1),v(i),phi(i+1)
enddo
read(lu,'(10x,f20)',err=98) v(nlay+1)
read(lu,'(10x,f20.10)',err=98) v(nlay+1)
close(lu,err=97)
if (verbose) print *,'file read and closed'
c
......
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