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

reporting current time for most module inits

This commit is contained in:
Pratheek Shanthraj 2013-02-25 16:34:59 +00:00
parent 6b6d4b76d8
commit 07ff1f7c93
27 changed files with 85 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/CPFEM.f90
View File

@ -121,7 +121,8 @@ subroutine CPFEM_init
debug_levelBasic, &
debug_levelExtensive
use IO, only: IO_read_jobBinaryFile,&
IO_read_jobBinaryIntFile
IO_read_jobBinaryIntFile, &
IO_timeStamp
use FEsolving, only: parallelExecution, &
symmetricSolver, &
restartRead, &
@ -209,6 +210,7 @@ subroutine CPFEM_init
write(6,'(/,a)') '<<<+- CPFEM init -+>>>'
write(6,'(a)') '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
if (iand(debug_level(debug_CPFEM), debug_levelBasic) /= 0) then
write(6,'(a32,1x,6(i8,1x))') 'CPFEM_cs: ', shape(CPFEM_cs)

4
code/DAMASK_abaqus_exp.f
View File

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

4
code/DAMASK_abaqus_std.f
View File

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

3
code/DAMASK_marc.f90
View File

@ -78,12 +78,15 @@ contains
subroutine DAMASK_interface_init
use IO, only: IO_timeStamp
implicit none
!$OMP CRITICAL (write2out)
write(6,*)
write(6,*) '<<<+- DAMASK_marc init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
!$OMP END CRITICAL (write2out)

4
code/DAMASK_spectral_solverAL.f90
View File

@ -78,7 +78,8 @@ subroutine AL_init(temperature)
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment)
use IO, only: &
IO_read_JobBinaryFile, &
IO_write_JobBinaryFile
IO_write_JobBinaryFile, &
IO_timeStamp
use FEsolving, only: &
restartInc
use DAMASK_interface, only: &
@ -120,6 +121,7 @@ subroutine AL_init(temperature)
call Utilities_init()
write(6,'(/,a)') ' <<<+- DAMASK_spectral_solverAL init -+>>>'
write(6,'(a)') ' $Id: DAMASK_spectral_SolverAL.f90 1654 2012-08-03 09:25:48Z MPIE\m.diehl $'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
allocate (F_lastInc (3,3, res(1), res(2),res(3)), source = 0.0_pReal)

4
code/DAMASK_spectral_solverBasic.f90
View File

@ -49,7 +49,8 @@ subroutine basic_init(temperature)
use IO, only: &
IO_read_JobBinaryFile, &
IO_write_JobBinaryFile, &
IO_intOut
IO_intOut, &
IO_timeStamp
use FEsolving, only: &
restartInc
use DAMASK_interface, only: &
@ -82,6 +83,7 @@ subroutine basic_init(temperature)
call Utilities_Init()
write(6,'(/,a)') ' <<<+- DAMASK_spectral_solverBasic init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
write(6,'(a,3(f12.5)/)') ' scaledDim x y z:', scaledDim

4
code/DAMASK_spectral_solverBasicPETSc.f90
View File

@ -76,7 +76,8 @@ subroutine basicPETSc_init(temperature)
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment)
use IO, only: &
IO_read_JobBinaryFile, &
IO_write_JobBinaryFile
IO_write_JobBinaryFile, &
IO_timeStamp
use FEsolving, only: &
restartInc
use DAMASK_interface, only: &
@ -117,6 +118,7 @@ subroutine basicPETSc_init(temperature)
call Utilities_init()
write(6,'(/,a)') ' <<<+- DAMASK_spectral_solverBasicPETSc init -+>>>'
write(6,'(a)') ' $Id: DAMASK_spectral_SolverBasicPETSC.f90 1654 2012-08-03 09:25:48Z MPIE\m.diehl $'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
write(6,'(a,3(f12.5)/)') ' scaledDim x y z:', scaledDim

4
code/DAMASK_spectral_utilities.f90
View File

@ -98,7 +98,8 @@ subroutine utilities_init()
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment)
use IO, only: &
IO_error, &
IO_warning
IO_warning, &
IO_timeStamp
use numerics, only: &
DAMASK_NumThreadsInt, &
fftw_planner_flag, &
@ -142,6 +143,7 @@ subroutine utilities_init()
divergence !< field cotaining data for FFTW in real and fourier space when debugging divergence (in place)
write(6,'(/,a)') ' <<<+- DAMASK_spectral_utilities init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
write(6,'(a)') ''
flush(6)

4
code/FEsolving.f90
View File

@ -85,7 +85,8 @@ subroutine FE_init
IO_open_inputFile, &
IO_open_logFile, &
#endif
IO_warning
IO_warning, &
IO_timeStamp
use DAMASK_interface
implicit none
@ -101,6 +102,7 @@ subroutine FE_init
write(6,'(/,a)') ' <<<+- FEsolving init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
modelName = getSolverJobName()

18
code/IO.f90
View File

@ -66,7 +66,8 @@ module IO
IO_continuousIntValues, &
IO_error, &
IO_warning, &
IO_intOut
IO_intOut, &
IO_timeStamp
#ifndef Spectral
public :: &
IO_open_inputFile, &
@ -101,6 +102,7 @@ subroutine IO_init
write(6,'(/,a)') ' <<<+- IO init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
end subroutine IO_init
@ -1384,6 +1386,20 @@ pure function IO_intOut(intToPrint)
end function IO_intOut
!--------------------------------------------------------------------------------------------------
!> @brief returns time stamp
!--------------------------------------------------------------------------------------------------
function IO_timeStamp()
implicit none
character(len=10) :: IO_timeStamp
integer(pInt), dimension(8) :: values
call DATE_AND_TIME(VALUES=values)
write(IO_timeStamp,'(i2.2,a1,i2.2,a1,i2.2)') values(5),':',values(6),':',values(7)
end function IO_timeStamp
!--------------------------------------------------------------------------------------------------
!> @brief write error statements to standard out and terminate the Marc/spectral run with exit #9xxx
!> in ABAQUS either time step is reduced or execution terminated

4
code/constitutive.f90
View File

@ -92,7 +92,8 @@ subroutine constitutive_init
IO_open_file, &
IO_open_jobFile_stat, &
IO_write_jobFile, &
IO_write_jobBinaryIntFile
IO_write_jobBinaryIntFile, &
IO_timeStamp
use mesh, only: &
mesh_maxNips, &
mesh_NcpElems, &
@ -155,6 +156,7 @@ subroutine constitutive_init
write(6,*)
write(6,*) '<<<+- constitutive init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
!--------------------------------------------------------------------------------------------------

1
code/constitutive_dislotwin.f90
View File

@ -155,6 +155,7 @@ character(len=1024) :: line = ''
write(6,*)
write(6,*) '<<<+- constitutive_',trim(constitutive_dislotwin_label),' init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
maxNinstance = int(count(phase_plasticity == constitutive_dislotwin_label),pInt)

4
code/constitutive_j2.f90
View File

@ -115,7 +115,8 @@ subroutine constitutive_j2_init(myFile)
IO_stringPos, &
IO_stringValue, &
IO_floatValue, &
IO_error
IO_error, &
IO_timeStamp
use material
use debug, only: &
debug_level, &
@ -136,6 +137,7 @@ subroutine constitutive_j2_init(myFile)
write(6,*)
write(6,*) '<<<+- constitutive_',trim(constitutive_j2_label),' init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
maxNinstance = int(count(phase_plasticity == constitutive_j2_label),pInt)

4
code/constitutive_none.f90
View File

@ -85,7 +85,8 @@ subroutine constitutive_none_init(myFile)
IO_stringPos, &
IO_stringValue, &
IO_floatValue, &
IO_error
IO_error, &
IO_timeStamp
use material
use debug, only: &
debug_level, &
@ -105,6 +106,7 @@ subroutine constitutive_none_init(myFile)
write(6,*)
write(6,*) '<<<+- constitutive_',trim(constitutive_none_label),' init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
maxNinstance = int(count(phase_plasticity == constitutive_none_label),pInt)

4
code/constitutive_nonlocal.f90
View File

@ -217,7 +217,8 @@ use IO, only: IO_lc, &
IO_stringValue, &
IO_floatValue, &
IO_intValue, &
IO_error
IO_error, &
IO_timeStamp
use debug, only: debug_level, &
debug_constitutive, &
debug_levelBasic
@ -262,6 +263,7 @@ character(len=1024) :: line = '' ! to start initi
write(6,*)
write(6,*) '<<<+- constitutive_',trim(constitutive_nonlocal_label),' init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
maxNinstance = int(count(phase_plasticity == constitutive_nonlocal_label),pInt)

1
code/constitutive_phenopowerlaw.f90
View File

@ -142,6 +142,7 @@ subroutine constitutive_phenopowerlaw_init(myFile)
write(6,*)
write(6,*) '<<<+- constitutive_',trim(constitutive_phenopowerlaw_label),' init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
maxNinstance = int(count(phase_plasticity == constitutive_phenopowerlaw_label),pInt)

1
code/constitutive_titanmod.f90
View File

@ -258,6 +258,7 @@ character(len=1024) :: line = ''
write(6,*)
write(6,*) '<<<+- constitutive_',trim(constitutive_titanmod_label),' init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
maxNinstance = count(phase_plasticity == constitutive_titanmod_label)

1
code/crystallite.f90
View File

@ -180,6 +180,7 @@ subroutine crystallite_init(Temperature)
write(6,'(/,a)') ' <<<+- crystallite init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"

4
code/debug.f90
View File

@ -132,7 +132,8 @@ subroutine debug_init
IO_stringValue, &
IO_lc, &
IO_floatValue, &
IO_intValue
IO_intValue, &
IO_timeStamp
implicit none
integer(pInt), parameter :: fileunit = 300_pInt
@ -145,6 +146,7 @@ subroutine debug_init
write(6,'(/,a)') ' <<<+- debug init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
if (allocated(debug_StressLoopDistribution)) &

4
code/homogenization.f90
View File

@ -104,7 +104,8 @@ subroutine homogenization_init(Temperature)
IO_open_file, &
IO_open_jobFile_stat, &
IO_write_jobFile, &
IO_write_jobBinaryIntFile
IO_write_jobBinaryIntFile, &
IO_timeStamp
use mesh, only: &
mesh_maxNips, &
mesh_NcpElems, &
@ -250,6 +251,7 @@ subroutine homogenization_init(Temperature)
write(6,'(/,a)') ' <<<+- homogenization init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
if (iand(debug_level(debug_homogenization), debug_levelBasic) /= 0_pInt) then
write(6,'(a32,1x,7(i8,1x))') 'homogenization_state0: ', shape(homogenization_state0)

1
code/homogenization_RGC.f90
View File

@ -113,6 +113,7 @@ subroutine homogenization_RGC_init(myFile)
write(6,'(/,3a)') ' <<<+- homogenization_',trim(homogenization_RGC_label),' init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
maxNinstance = int(count(homogenization_type == homogenization_RGC_label),pInt)

1
code/homogenization_isostrain.f90
View File

@ -74,6 +74,7 @@ subroutine homogenization_isostrain_init(myFile)
write(6,*)
write(6,*) '<<<+- homogenization_',trim(homogenization_isostrain_label),' init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"

4
code/lattice.f90
View File

@ -806,7 +806,8 @@ subroutine lattice_init
IO_open_jobFile_stat, &
IO_countSections, &
IO_countTagInPart, &
IO_error
IO_error, &
IO_timeStamp
use material, only: material_configfile, &
material_localFileExt, &
material_partPhase
@ -822,6 +823,7 @@ subroutine lattice_init
write(6,*)
write(6,*) '<<<+- lattice init -+>>>'
write(6,*) '$Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
!$OMP END CRITICAL (write2out)

4
code/material.f90
View File

@ -142,7 +142,8 @@ subroutine material_init
use IO, only: &
IO_error, &
IO_open_file, &
IO_open_jobFile_stat
IO_open_jobFile_stat, &
IO_timeStamp
use debug, only: &
debug_level, &
debug_material, &
@ -157,6 +158,7 @@ subroutine material_init
write(6,'(/,a)') ' <<<+- material init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"

3
code/math.f90
View File

@ -258,7 +258,7 @@ subroutine math_init
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
use prec, only: tol_math_check
use numerics, only: fixedSeed
use IO, only: IO_error
use IO, only: IO_error, IO_timeStamp
implicit none
integer(pInt) :: i
@ -273,6 +273,7 @@ subroutine math_init
write(6,'(/,a)') ' <<<+- math init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
call random_seed(size=randSize)

2
code/mesh.f90
View File

@ -404,6 +404,7 @@ subroutine mesh_init(ip,el)
use DAMASK_interface
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
use IO, only: &
IO_timeStamp, &
#ifdef Abaqus
IO_abaqus_hasNoPart, &
#endif
@ -430,6 +431,7 @@ subroutine mesh_init(ip,el)
write(6,'(/,a)') ' <<<+- mesh init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
if (allocated(mesh_mapFEtoCPelem)) deallocate(mesh_mapFEtoCPelem)

4
code/numerics.f90
View File

@ -135,7 +135,8 @@ subroutine numerics_init
IO_lc, &
IO_floatValue, &
IO_intValue, &
IO_warning
IO_warning, &
IO_timeStamp
#ifndef Marc
!$ use OMP_LIB, only: omp_set_num_threads ! Use the standard conforming module file for omp if not using MSC.Marc
@ -154,6 +155,7 @@ subroutine numerics_init
write(6,'(/,a)') ' <<<+- numerics init -+>>>'
write(6,'(a)') ' $Id$'
write(6,'(a16,a)') ' Current time : ',IO_timeStamp()
#include "compilation_info.f90"
!$ call GET_ENVIRONMENT_VARIABLE(NAME='DAMASK_NUM_THREADS',VALUE=DAMASK_NumThreadsString,STATUS=gotDAMASK_NUM_THREADS) ! get environment variable DAMASK_NUM_THREADS...