From 07ff1f7c936793dfd27b5fe8af45dda4a018d6aa Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Mon, 25 Feb 2013 16:34:59 +0000 Subject: [PATCH] reporting current time for most module inits --- code/CPFEM.f90 | 4 +++- code/DAMASK_abaqus_exp.f | 4 ++++ code/DAMASK_abaqus_std.f | 4 ++++ code/DAMASK_marc.f90 | 3 +++ code/DAMASK_spectral_solverAL.f90 | 4 +++- code/DAMASK_spectral_solverBasic.f90 | 4 +++- code/DAMASK_spectral_solverBasicPETSc.f90 | 4 +++- code/DAMASK_spectral_utilities.f90 | 4 +++- code/FEsolving.f90 | 4 +++- code/IO.f90 | 22 +++++++++++++++++++--- code/constitutive.f90 | 4 +++- code/constitutive_dislotwin.f90 | 1 + code/constitutive_j2.f90 | 4 +++- code/constitutive_none.f90 | 4 +++- code/constitutive_nonlocal.f90 | 4 +++- code/constitutive_phenopowerlaw.f90 | 1 + code/constitutive_titanmod.f90 | 1 + code/crystallite.f90 | 1 + code/debug.f90 | 4 +++- code/homogenization.f90 | 4 +++- code/homogenization_RGC.f90 | 1 + code/homogenization_isostrain.f90 | 1 + code/lattice.f90 | 4 +++- code/material.f90 | 4 +++- code/math.f90 | 3 ++- code/mesh.f90 | 2 ++ code/numerics.f90 | 4 +++- 27 files changed, 85 insertions(+), 19 deletions(-) diff --git a/code/CPFEM.f90 b/code/CPFEM.f90 index 9f3ffb4c6..4286791ba 100644 --- a/code/CPFEM.f90 +++ b/code/CPFEM.f90 @@ -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) diff --git a/code/DAMASK_abaqus_exp.f b/code/DAMASK_abaqus_exp.f index 0d0f48c74..b92c74fcb 100644 --- a/code/DAMASK_abaqus_exp.f +++ b/code/DAMASK_abaqus_exp.f @@ -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 diff --git a/code/DAMASK_abaqus_std.f b/code/DAMASK_abaqus_std.f index 25a86be8b..aded27206 100644 --- a/code/DAMASK_abaqus_std.f +++ b/code/DAMASK_abaqus_std.f @@ -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 diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90 index d8c58989f..f8cd1483e 100644 --- a/code/DAMASK_marc.f90 +++ b/code/DAMASK_marc.f90 @@ -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) diff --git a/code/DAMASK_spectral_solverAL.f90 b/code/DAMASK_spectral_solverAL.f90 index 305b5800b..d393bf515 100644 --- a/code/DAMASK_spectral_solverAL.f90 +++ b/code/DAMASK_spectral_solverAL.f90 @@ -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) diff --git a/code/DAMASK_spectral_solverBasic.f90 b/code/DAMASK_spectral_solverBasic.f90 index 5834d506d..dbfb26118 100644 --- a/code/DAMASK_spectral_solverBasic.f90 +++ b/code/DAMASK_spectral_solverBasic.f90 @@ -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 diff --git a/code/DAMASK_spectral_solverBasicPETSc.f90 b/code/DAMASK_spectral_solverBasicPETSc.f90 index 28c3bf25b..e7f8c19a6 100644 --- a/code/DAMASK_spectral_solverBasicPETSc.f90 +++ b/code/DAMASK_spectral_solverBasicPETSc.f90 @@ -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 diff --git a/code/DAMASK_spectral_utilities.f90 b/code/DAMASK_spectral_utilities.f90 index 845f6071a..4b19446fc 100644 --- a/code/DAMASK_spectral_utilities.f90 +++ b/code/DAMASK_spectral_utilities.f90 @@ -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) diff --git a/code/FEsolving.f90 b/code/FEsolving.f90 index 2d56a5770..d0b5e42a0 100644 --- a/code/FEsolving.f90 +++ b/code/FEsolving.f90 @@ -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() diff --git a/code/IO.f90 b/code/IO.f90 index 41edced28..79c5eb92f 100644 --- a/code/IO.f90 +++ b/code/IO.f90 @@ -66,7 +66,8 @@ module IO IO_continuousIntValues, & IO_error, & IO_warning, & - IO_intOut + IO_intOut, & + IO_timeStamp #ifndef Spectral public :: & IO_open_inputFile, & @@ -99,8 +100,9 @@ contains subroutine IO_init use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) - write(6,'(/,a)') ' <<<+- IO init -+>>>' - write(6,'(a)') ' $Id$' + 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 diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 9f48535d5..50fe98c2a 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -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" !-------------------------------------------------------------------------------------------------- diff --git a/code/constitutive_dislotwin.f90 b/code/constitutive_dislotwin.f90 index 8fc2bc6b5..fdea5dc8e 100644 --- a/code/constitutive_dislotwin.f90 +++ b/code/constitutive_dislotwin.f90 @@ -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) diff --git a/code/constitutive_j2.f90 b/code/constitutive_j2.f90 index bd9eb991e..f92d827a3 100644 --- a/code/constitutive_j2.f90 +++ b/code/constitutive_j2.f90 @@ -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) diff --git a/code/constitutive_none.f90 b/code/constitutive_none.f90 index dddb99448..f7cc73741 100644 --- a/code/constitutive_none.f90 +++ b/code/constitutive_none.f90 @@ -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) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 497689b36..514fd6025 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -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) diff --git a/code/constitutive_phenopowerlaw.f90 b/code/constitutive_phenopowerlaw.f90 index ac1dd35f0..71c11aeb6 100644 --- a/code/constitutive_phenopowerlaw.f90 +++ b/code/constitutive_phenopowerlaw.f90 @@ -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) diff --git a/code/constitutive_titanmod.f90 b/code/constitutive_titanmod.f90 index 7af9c4ab8..25354bc15 100644 --- a/code/constitutive_titanmod.f90 +++ b/code/constitutive_titanmod.f90 @@ -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) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 3c8e68c04..898d4642b 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -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" diff --git a/code/debug.f90 b/code/debug.f90 index b499dd97c..094ab054c 100644 --- a/code/debug.f90 +++ b/code/debug.f90 @@ -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)) & diff --git a/code/homogenization.f90 b/code/homogenization.f90 index dbf3eaa02..567d4a8f6 100644 --- a/code/homogenization.f90 +++ b/code/homogenization.f90 @@ -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) diff --git a/code/homogenization_RGC.f90 b/code/homogenization_RGC.f90 index c88eb02c9..6f9f2bd75 100644 --- a/code/homogenization_RGC.f90 +++ b/code/homogenization_RGC.f90 @@ -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) diff --git a/code/homogenization_isostrain.f90 b/code/homogenization_isostrain.f90 index a377c1d2f..6609d0649 100644 --- a/code/homogenization_isostrain.f90 +++ b/code/homogenization_isostrain.f90 @@ -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" diff --git a/code/lattice.f90 b/code/lattice.f90 index dff8f04f0..4f487221a 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -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) diff --git a/code/material.f90 b/code/material.f90 index c19ba698c..79e82a992 100644 --- a/code/material.f90 +++ b/code/material.f90 @@ -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" diff --git a/code/math.f90 b/code/math.f90 index c970adbce..ea8feb8c0 100644 --- a/code/math.f90 +++ b/code/math.f90 @@ -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) diff --git a/code/mesh.f90 b/code/mesh.f90 index 165088212..c0398acab 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -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) diff --git a/code/numerics.f90 b/code/numerics.f90 index a5895045b..a26fcfff6 100644 --- a/code/numerics.f90 +++ b/code/numerics.f90 @@ -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...