added version information to all files

do NOT edit text like this:
$Id: constitutive_phenopowerlaw.f90 406 2009-08-31 14:13:10Z MPIE\f.roters $

code/CPFEM.f90

@@ -1,3 +1,4 @@
+!* $Id$
 !##############################################################
 MODULE CPFEM
 !##############################################################
@@ -42,6 +43,7 @@ subroutine CPFEM_init()
   !$OMP CRITICAL (write2out)
     write(6,*)
     write(6,*) '<<<+-  cpfem init  -+>>>'
+    write(6,*) '$Id$'
     write(6,*)
     write(6,'(a32,x,6(i5,x))') 'CPFEM_cs:              ', shape(CPFEM_cs)
     write(6,'(a32,x,6(i5,x))') 'CPFEM_dcsdE:           ', shape(CPFEM_dcsdE)
@@ -165,6 +167,8 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
 
   ! initialization step (three dimensional stress state check missing?)
   if (.not. CPFEM_init_done) then
+    call prec_init()
+    call IO_init()
     call numerics_init()
     call debug_init()
     call math_init()
@@ -176,6 +180,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
     call crystallite_init(Temperature)         ! (have to) use temperature of first IP for whole model
     call homogenization_init(Temperature)
     call CPFEM_init()
+    call mpie_cpfem_init()
     CPFEM_init_done = .true.
   endif
 

code/FEsolving.f90

@@ -1,4 +1,4 @@
-
+!* 'Id'
 !##############################################################
  MODULE FEsolving
 !##############################################################
@@ -34,6 +34,7 @@
 
  write(6,*)
  write(6,*) '<<<+-  FEsolving init  -+>>>'
+ write(6,*) '$Id$'
  write(6,*)
  
  if (IO_open_inputFile(fileunit)) then

code/IO.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !##############################################################
  MODULE IO   
 !##############################################################
@@ -24,7 +24,16 @@
 ! subroutine IO_warning(ID)
 !---------------------------
 
-
+!********************************************************************
+! output version number
+!********************************************************************
+subroutine IO_init
+ write(6,*)
+ write(6,*) '<<<+-  IO init  -+>>>'
+ write(6,*) '$Id$'
+ write(6,*)
+ return
+end subroutine
 
 !********************************************************************
 ! open existing file to given unit

code/constitutive.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !************************************
 !*      Module: CONSTITUTIVE        *
 !************************************
@@ -174,6 +174,7 @@ subroutine constitutive_init()
 
  write(6,*)
  write(6,*) '<<<+-  constitutive init  -+>>>'
+ write(6,*) '$Id$'
  write(6,*)
  write(6,'(a32,x,7(i5,x))') 'constitutive_state0:          ', shape(constitutive_state0)
  write(6,'(a32,x,7(i5,x))') 'constitutive_partionedState0: ', shape(constitutive_partionedState0)

code/constitutive_dislobased.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !************************************
 !*      Module: CONSTITUTIVE        *
 !************************************
@@ -156,6 +156,7 @@ subroutine constitutive_dislobased_init(file)
 
  write(6,*)
  write(6,'(a20,a20,a12)') '<<<+-  constitutive_',constitutive_dislobased_label,' init  -+>>>'
+ write(6,*) '$Id$'
  write(6,*)
 
  maxNinstance = count(phase_constitution == constitutive_dislobased_label)

code/constitutive_j2.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !*****************************************************
 !*      Module: CONSTITUTIVE_J2        				 *
 !*****************************************************
@@ -76,6 +76,7 @@ subroutine constitutive_j2_init(file)
 
  write(6,*)
  write(6,'(a20,a20,a12)') '<<<+-  constitutive_',constitutive_j2_label,' init  -+>>>'
+ write(6,*) '$Id$'
  write(6,*)
  
  maxNinstance = count(phase_constitution == constitutive_j2_label)

code/constitutive_nonlocal.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !************************************
 !*  Module: CONSTITUTIVE_NONLOCAL   *
 !************************************
@@ -158,6 +158,7 @@ character(len=1024)                         line
 
 write(6,*)
 write(6,'(a20,a20,a12)') '<<<+-  constitutive_',constitutive_nonlocal_label,' init  -+>>>'
+write(6,*) '$Id$'
 write(6,*)
 
 maxNinstance = count(phase_constitution == constitutive_nonlocal_label)

code/crystallite.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !***************************************
 !*      Module: CRYSTALLITE            *
 !***************************************
@@ -165,6 +165,7 @@ subroutine crystallite_init(Temperature)
   !$OMP CRITICAL (write2out)
     write(6,*)
     write(6,*) '<<<+-  crystallite init  -+>>>'
+    write(6,*) '$Id$'
     write(6,*)
     write(6,'(a35,x,7(i5,x))') 'crystallite_Nresults:              ', crystallite_Nresults
     write(6,*)

code/debug.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !##############################################################
  MODULE debug
 !##############################################################
@@ -34,6 +34,7 @@ subroutine debug_init()
   
   write(6,*)
   write(6,*) '<<<+-  debug init  -+>>>'
+  write(6,*) '$Id$'
   write(6,*)
  
   allocate(debug_StressLoopDistribution(nStress)) ;         debug_StressLoopDistribution = 0_pInt

code/homogenization.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !***************************************
 !*      Module: HOMOGENIZATION         *
 !***************************************
@@ -139,6 +139,7 @@ subroutine homogenization_init(Temperature)
 !$OMP CRITICAL (write2out)
  write(6,*)
  write(6,*) '<<<+-  homogenization init  -+>>>'
+ write(6,*) '$Id$'
  write(6,*)
  write(6,'(a32,x,7(i5,x))') 'homogenization_state0:          ', shape(homogenization_state0)
  write(6,'(a32,x,7(i5,x))') 'homogenization_subState0:       ', shape(homogenization_subState0)

code/homogenization_RGC.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !*****************************************************
 !*      Module: HOMOGENIZATION_RGC                   *
 !*****************************************************
@@ -55,6 +55,11 @@ subroutine homogenization_RGC_init(&
  character(len=64) tag
  character(len=1024) line
  
+    write(6,*)
+    write(6,'(a20,a20,a12)') '<<<+-  homogenization',homogenization_RGC_label,' init  -+>>>'
+    write(6,*) '$Id$'
+    write(6,*)
+
  maxNinstance = count(homogenization_type == homogenization_RGC_label)
  if (maxNinstance == 0) return
 

code/homogenization_isostrain.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !*****************************************************
 !*      Module: HOMOGENIZATION_ISOSTRAIN			 *
 !*****************************************************
@@ -53,6 +53,11 @@ subroutine homogenization_isostrain_init(&
  character(len=64) tag
  character(len=1024) line
  
+    write(6,*)
+    write(6,'(a20,a20,a12)') '<<<+-  homogenization',homogenization_isostrain_label,' init  -+>>>'
+    write(6,*) '$Id$'
+    write(6,*)
+
  maxNinstance = count(homogenization_type == homogenization_isostrain_label)
  if (maxNinstance == 0) return
 

code/lattice.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !************************************
 !*         Module: LATTICE          *
 !************************************
@@ -654,6 +654,7 @@ subroutine lattice_init()
 
  write(6,*)
  write(6,*) '<<<+-  lattice init  -+>>>'
+ write(6,*) '$Id$'
  write(6,*)
 
  if(.not. IO_open_file(fileunit,material_configFile)) call IO_error (100) ! corrupt config file

code/makeMe.py

@@ -1,5 +1,5 @@
 #!/usr/bin/env python
-
+# $Id$
 import os,sys
 
 sys.argv += ['' for i in range(2 - len(sys.argv))]

code/material.config

@@ -1,4 +1,6 @@
 #####################
+# $Id$
+#####################
 <homogenization>
 #####################
 

code/material.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !************************************
 !*      Module: MATERIAL            *
 !************************************
@@ -77,6 +77,7 @@ subroutine material_init()
  
  write(6,*)
  write(6,*) '<<<+-  material init  -+>>>'
+ write(6,*) '$Id$'
  write(6,*)
   
  if(.not. IO_open_file(fileunit,material_configFile)) call IO_error (100) ! corrupt config file

code/math.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !##############################################################
  MODULE math   
 !##############################################################
@@ -219,6 +219,11 @@ real(pReal), dimension(132,3), parameter :: sym = &
  integer (pInt), dimension(1) :: randInit
  integer (pInt) seed
  
+ write(6,*)
+ write(6,*) '<<<+-  math init  -+>>>'
+ write(6,*) '$Id$'
+ write(6,*)
+  
  if (fixedSeed > 0_pInt) then
    randInit = fixedSeed
    call random_seed(put=randInit)

code/mesh.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !##############################################################
  MODULE mesh     
 !##############################################################
@@ -195,6 +195,7 @@
  
  write(6,*)
  write(6,*) '<<<+-  mesh init  -+>>>'
+ write(6,*) '$Id$'
  write(6,*)
 
  mesh_Nelems          = 0_pInt

code/mpie_cpfem_marc.f90

@@ -1,3 +1,4 @@
+!* $Id$
 !********************************************************************
 ! Material subroutine for MSC.Marc
 !
@@ -6,6 +7,7 @@
 !            L. Hantcherli,
 !            W.A. Counts
 !            D.D. Tjahjanto
+!            C. Kords
 !
 ! MPI fuer Eisenforschung, Duesseldorf
 !
@@ -34,6 +36,14 @@
 !             - creeps: timinc
 !********************************************************************
 !
+subroutine mpie_cpfem_init
+ write(6,*)
+ write(6,*) '<<<+-  mpie_cpfem init  -+>>>'
+ write(6,*) '$Id$'
+ write(6,*)
+ return
+end subroutine
+
  include "prec.f90"             ! uses nothing else
  include "IO.f90"               ! uses prec
  include "numerics.f90"         ! uses prec, IO

code/numerics.config

@@ -1,4 +1,4 @@
-
+### $Id$ ###
 ### numerical parameters ###
 
 relevantStrain            1.0e-9      # strain increment considered significant

code/numerics.f90

@@ -1,3 +1,4 @@
+!* $Id$
 !##############################################################
 MODULE numerics
 !##############################################################
@@ -66,6 +67,7 @@ subroutine numerics_init()
   
   write(6,*)
   write(6,*) '<<<+-  numerics init  -+>>>'
+  write(6,*) '$Id$'
   write(6,*)
   
   ! initialize all parameters with standard values

code/prec.f90

@@ -1,4 +1,4 @@
-
+!* $Id$
 !##############################################################
  MODULE prec
 !##############################################################
@@ -14,4 +14,15 @@
      real(pReal), dimension(:), pointer :: p
  end type p_vec
 
+CONTAINS
+
+subroutine prec_init
+ write(6,*)
+ write(6,*) '<<<+-  prec init  -+>>>'
+ write(6,*) '$Id$'
+ write(6,*)
+ return
+end subroutine
+
+
  END MODULE prec

code/todo.txt

@@ -1,3 +1,4 @@
+$Id$
 Things to be implemented into the code
 
 # adopt CPFEM_GIA8.f90 to new scheme, use "select case" to switch between homogenization schemes in CPFEM.f90