No tab allowed

This commit is contained in:
Yi-Chin Yang 2018-04-17 15:25:27 +02:00
parent fc3abd4f39
commit 258be943c7
1 changed files with 1 additions and 1 deletions

View File

@ -104,7 +104,7 @@ subroutine spectral_thermal_init
mainProcess: if (worldrank == 0_pInt) then
write(6,'(/,a)') ' <<<+- spectral_thermal init -+>>>'
write(6,'(/,a)') ' Shanthraj et. al, Handbook of Mechanics of Materials, volume in press, '
write(6,'(/,a)') ' chapter Spectral Solvers for Crystal Plasticity and Multi-Physics Simulations. Springer, 2018 '
write(6,'(/,a)') ' chapter Spectral Solvers for Crystal Plasticity and Multi-Physics Simulations. Springer, 2018 '
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90"
endif mainProcess