From afe54f588f18cc51bdb66f6c47ef50dd1edd0591 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 25 Sep 2007 20:53:02 +0000 Subject: Give all strings the same length git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/NoExcision/trunk@10 4ec1db94-0e4f-0410-ada3-8bed251432c9 --- src/NoExcision_mod.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/NoExcision_mod.F90 b/src/NoExcision_mod.F90 index 646d335..581db2d 100644 --- a/src/NoExcision_mod.F90 +++ b/src/NoExcision_mod.F90 @@ -27,10 +27,10 @@ module NoExcision_mod 'NoExcision::redkyy', & 'NoExcision::redkyz', & 'NoExcision::redkzz', & - 'NoExcision::red', & - 'NoExcision::redx', & - 'NoExcision::redy', & - 'NoExcision::redz' /) + 'NoExcision::red ', & + 'NoExcision::redx ', & + 'NoExcision::redy ', & + 'NoExcision::redz ' /) character(len=5), dimension(16) :: var_names = (/ ' gxx', ' gxy', & ' gxz', ' gyy', & ' gyz', ' gzz', & -- cgit v1.2.3