extended output string length for init msg

This commit is contained in:
Claudio Zambaldi 2010-04-28 17:19:06 +00:00
parent a36951a6ac
commit 35cebfb132
2 changed files with 2 additions and 2 deletions

View File

@ -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,*)

View File

@ -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,*)