From 35cebfb1326b5e8559ce73b4f94a8adc00c0d1b1 Mon Sep 17 00:00:00 2001 From: Claudio Zambaldi Date: Wed, 28 Apr 2010 17:19:06 +0000 Subject: [PATCH] extended output string length for init msg --- code/homogenization_RGC.f90 | 2 +- code/homogenization_isostrain.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/code/homogenization_RGC.f90 b/code/homogenization_RGC.f90 index 8b22e5da0..e5fa58a41 100644 --- a/code/homogenization_RGC.f90 +++ b/code/homogenization_RGC.f90 @@ -60,7 +60,7 @@ subroutine homogenization_RGC_init(& character(len=1024) line write(6,*) - write(6,'(a20,a20,a12)') '<<<+- homogenization',homogenization_RGC_label,' init -+>>>' + write(6,'(a21,a20,a12)') '<<<+- homogenization',homogenization_RGC_label,' init -+>>>' write(6,*) '$Id$' write(6,*) diff --git a/code/homogenization_isostrain.f90 b/code/homogenization_isostrain.f90 index 9273a2b61..03e6458b1 100644 --- a/code/homogenization_isostrain.f90 +++ b/code/homogenization_isostrain.f90 @@ -55,7 +55,7 @@ subroutine homogenization_isostrain_init(& character(len=1024) line write(6,*) - write(6,'(a20,a20,a12)') '<<<+- homogenization',homogenization_isostrain_label,' init -+>>>' + write(6,'(a21,a20,a12)') '<<<+- homogenization',homogenization_isostrain_label,' init -+>>>' write(6,*) '$Id$' write(6,*)