diff options
author | allen <allen@535fb057-194f-0410-b5a5-c63992f15602> | 2000-01-25 10:35:38 +0000 |
---|---|---|
committer | allen <allen@535fb057-194f-0410-b5a5-c63992f15602> | 2000-01-25 10:35:38 +0000 |
commit | 23801b799bcba0cae9970ec3eeb8486211e5ce01 (patch) | |
tree | ae6d18c127aa7ed3b3e6aca7b6531d3ff6225b3a | |
parent | 775cc13660c8e3dc863241cc91193e8453c0c261 (diff) |
Small bug fixes for linux compiler
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@7 535fb057-194f-0410-b5a5-c63992f15602
-rw-r--r-- | src/RotatingDBHIVP.F | 4 | ||||
-rw-r--r-- | src/Stab3d.F | 2 |
2 files changed, 2 insertions, 4 deletions
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 |