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

removed time information from interface routines, should work now

This commit is contained in:
Martin Diehl 2013-02-26 12:49:07 +00:00
parent 9ec87e8d1f
commit 04c2b22766
3 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/DAMASK_abaqus_exp.f
View File

@ -60,12 +60,10 @@ contains
!-------------------- !--------------------
subroutine DAMASK_interface_init() subroutine DAMASK_interface_init()
!-------------------- !--------------------
use IO, only: IO_timeStamp
write(6,*) write(6,*)
write(6,*) '<<<+- DAMASK_abaqus init -+>>>' write(6,*) '<<<+- DAMASK_abaqus init -+>>>'
write(6,*) '$Id$' write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
write(6,*) write(6,*)

3
code/DAMASK_abaqus_std.f
View File

@ -60,12 +60,9 @@ contains
!-------------------- !--------------------
subroutine DAMASK_interface_init() subroutine DAMASK_interface_init()
!-------------------- !--------------------
use IO, only: IO_timeStamp
write(6,*) write(6,*)
write(6,*) '<<<+- DAMASK_abaqus init -+>>>' write(6,*) '<<<+- DAMASK_abaqus init -+>>>'
write(6,*) '$Id$' write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
write(6,*) write(6,*)

5
code/DAMASK_marc.f90
View File

@ -66,7 +66,6 @@
#define Marc #define Marc
#include "prec.f90" #include "prec.f90"
#include "IO.f90"
module DAMASK_interface module DAMASK_interface
use prec, only: pInt use prec, only: pInt
@ -79,15 +78,12 @@ contains
subroutine DAMASK_interface_init subroutine DAMASK_interface_init
use IO, only: IO_timeStamp
implicit none implicit none
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write(6,*) write(6,*)
write(6,*) '<<<+- DAMASK_marc init -+>>>' write(6,*) '<<<+- DAMASK_marc init -+>>>'
write(6,*) '$Id$' write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
@ -128,6 +124,7 @@ end function getSolverJobName
end module DAMASK_interface end module DAMASK_interface
#include "IO.f90"
#include "numerics.f90" #include "numerics.f90"
#include "debug.f90" #include "debug.f90"
#include "math.f90" #include "math.f90"