223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

added time stamp to init of lattice

This commit is contained in:
Martin Diehl 2013-03-07 22:45:00 +00:00
parent b9e0326240
commit 3e2ecbe0a3
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/IO.f90
View File

@ -102,7 +102,7 @@ subroutine IO_init
write(6,'(/,a)') ' <<<+- IO init -+>>>' write(6,'(/,a)') ' <<<+- IO init -+>>>'
write(6,'(a)') ' $Id$' write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
end subroutine IO_init end subroutine IO_init

8
code/lattice.f90
View File

@ -680,7 +680,8 @@ subroutine lattice_init
IO_open_jobFile_stat, & IO_open_jobFile_stat, &
IO_countSections, & IO_countSections, &
IO_countTagInPart, & IO_countTagInPart, &
IO_error IO_error, &
IO_timeStamp
use material, only: & use material, only: &
material_configfile, & material_configfile, &
material_localFileExt, & material_localFileExt, &
@ -694,8 +695,9 @@ subroutine lattice_init
integer(pInt), parameter :: fileunit = 200_pInt integer(pInt), parameter :: fileunit = 200_pInt
integer(pInt) :: Nsections integer(pInt) :: Nsections
write(6,'(/,a)') ' <<<+- lattice init -+>>>' write(6,'(/,a)') ' <<<+- lattice init -+>>>'
write(6,'(a)') ' $Id$' write(6,'(a)') ' $Id$'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
if (.not. IO_open_jobFile_stat(fileunit,material_localFileExt)) then ! no local material configuration present... if (.not. IO_open_jobFile_stat(fileunit,material_localFileExt)) then ! no local material configuration present...