diff options
author | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 1999-11-10 09:19:04 +0000 |
---|---|---|
committer | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 1999-11-10 09:19:04 +0000 |
commit | b90edea69b7d1e1e313c0af91a2f3eeff671c8d9 (patch) | |
tree | 06c7a2299189106c151273a8b57e583ff2375822 /src | |
parent | f879d87045787e75a17ae2a2332b5bfa0496e5dc (diff) |
Copyright statement
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@13 a678b1cf-93e1-4b43-a69d-d43939e66649
Diffstat (limited to 'src')
-rw-r--r-- | src/brillq.F | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/brillq.F b/src/brillq.F index fb28639..45e9b62 100644 --- a/src/brillq.F +++ b/src/brillq.F @@ -87,7 +87,7 @@ C Get parameters at first call. end if - if (rho.lt.0) write(*,*) "Warning: negative rho in brillq:", rho + if (rho.lt.0) call CCTK_WARN(1,"Warning: negative rho in brillq:") C Calculate q(rho,z) from a choice of forms. Type 0, 1 and 2 are those C of Bruegmann. @@ -122,8 +122,7 @@ C smooth "pure quadrupole" q should be. C Unknown type for q function. - write(*,*) "Unknown type of Brill function q." - STOP + call CCTK_WARN(0,"Unknown type of Brill function q.") end if |