diff options
author | schnetter <schnetter@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2010-03-16 21:57:13 +0000 |
---|---|---|
committer | schnetter <schnetter@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2010-03-16 21:57:13 +0000 |
commit | 1a551590f45aa3ee8ba33717bcc031cdb573a736 (patch) | |
tree | 01b77514d36ea94efede5d70c2064a645b9bd800 /src | |
parent | 27becd219614bf951425deb9e9c4232205ce9005 (diff) |
Comment out call to function that has wrong arguments and that
(presumably) is not called anyway
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiBrillBH/trunk@107 0a4070d5-58f5-498f-b6c0-2693e757fa0f
Diffstat (limited to 'src')
-rw-r--r-- | src/shmgp.F77 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/shmgp.F77 b/src/shmgp.F77 index 3d3b0d9..f23e6d7 100644 --- a/src/shmgp.F77 +++ b/src/shmgp.F77 @@ -307,8 +307,16 @@ cdir$ inline call ukey(k+1,np2,n5,n9,ni,jm,i9,j9,ifd,jr) call ukey(k,np2,n5c,n9c,nic,jmc,i9c,j9c,ifdc,jrc) cdir$ noinline +c TODO 2009-01-06 Erik Schnetter <schnetter@cct.lsu.edu>: +c I notice that this call does not correspond to the subroutine +c definition below. The call passes three arguments too many. +c Maybe the three arguments pu(nic),pd(nic),pc(nic) should be +c omitted? + call CCTK_WARN (CCTK_WARN_ABORT, "Trying to find out whether this line is reached") 6 call ursrhs(f(n5),f(n5c),pu(nic),pd(nic),pc(nic),ru(nic), + rd(nic),rc(nic),im,jm,jmc,m,k+1,jr,irc) +c 6 call ursrhs(f(n5),f(n5c),ru(nic),rd(nic),rc(nic), +c + im,jm,jmc,m,k+1,jr,irc) endif c-time tsu1=second() c-time write(lout,*) ' time for setup =',tsu1-tsu0 |