diff options
| author | eschnett <eschnett@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2013-10-30 15:17:55 +0000 |
|---|---|---|
| committer | eschnett <eschnett@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2013-10-30 15:17:55 +0000 |
| commit | 852f4e81081c66ea203214a84b83e516ff1a82fd (patch) | |
| tree | e610f6a38ff364d23fc30a4c77825c3e61048f62 | |
| parent | 8604079d51534b4e2fdb876079d9141514352656 (diff) | |
Abort on error
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@127 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
| -rw-r--r-- | src/spin_integrand3D.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/spin_integrand3D.F b/src/spin_integrand3D.F index 7f93a0d..c2ced50 100644 --- a/src/spin_integrand3D.F +++ b/src/spin_integrand3D.F @@ -60,7 +60,7 @@ c ------------------------------------------------------------------------ ip = 1 CASE DEFAULT - WRITE(*,*) "This value of Psi_power is not supported" + CALL CCTK_ERROR("This value of Psi_power is not supported") END SELECT |