From 23801b799bcba0cae9970ec3eeb8486211e5ce01 Mon Sep 17 00:00:00 2001 From: allen Date: Tue, 25 Jan 2000 10:35:38 +0000 Subject: Small bug fixes for linux compiler git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@7 535fb057-194f-0410-b5a5-c63992f15602 --- src/RotatingDBHIVP.F | 4 +--- src/Stab3d.F | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F index 405fa1f..6bacb24 100644 --- a/src/RotatingDBHIVP.F +++ b/src/RotatingDBHIVP.F @@ -34,10 +34,8 @@ c Need include file from Einstein DECLARE_CCTK_FARGUMENTS DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_FUNCTIONS -c Perhaps this and others should go into cctk.h - integer CCTK_Equals - real*8 deta,dq,dphi real*8, allocatable :: ac(:,:,:),ae(:,:,:),aw(:,:,:),an(:,:,:), $ as(:,:,:),aq(:,:,:),ab(:,:,:),rhs(:,:,:),Ksq(:,:,:), diff --git a/src/Stab3d.F b/src/Stab3d.F index 0b1f97d..0bd7678 100644 --- a/src/Stab3d.F +++ b/src/Stab3d.F @@ -246,7 +246,7 @@ c c This routine was lifted from stab.f. Minor modifications have c been made. c -c Be careful that the c's are zero on their outer boundary!! +c Be careful that the cs are zero on their outer boundary!! c implicit none c -- cgit v1.2.3