polishing

- default string length
- Nslip/Ntwin/Ntrans not stored in state anymore

src/IO.f90

@@ -991,7 +991,7 @@ integer function IO_countContinuousIntValues(fileUnit)
  integer                            :: l,c
 #endif
  integer, allocatable, dimension(:) :: chunkPos
- character(len=pString)             :: line
+ character(len=pStringLen)          :: line
 
  IO_countContinuousIntValues = 0
  line = ''

src/material.f90

@@ -728,18 +728,14 @@ end subroutine material_parseTexture
 !> @brief allocates the plastic state of a phase
 !--------------------------------------------------------------------------------------------------
 subroutine material_allocatePlasticState(phase,NofMyPhase,&
-                                         sizeState,sizeDotState,sizeDeltaState,&
+                                         sizeState,sizeDotState,sizeDeltaState)
-                                         Nslip,Ntwin,Ntrans)
 
   integer, intent(in) :: &
     phase, &
     NofMyPhase, &
     sizeState, &
     sizeDotState, &
-    sizeDeltaState, &
+    sizeDeltaState
-    Nslip, &
-    Ntwin, &
-    Ntrans
 
   plasticState(phase)%sizeState        = sizeState
   plasticState(phase)%sizeDotState     = sizeDotState

src/plastic_disloUCLA.f90

@@ -126,7 +126,7 @@ subroutine plastic_disloUCLA_init()
  
   character(len=pStringLen) :: &
     extmsg = ''
-  character(len=65536), dimension(:), allocatable :: &
+  character(len=pStringLen), dimension(:), allocatable :: &
     outputs
  
   write(6,'(/,a)')   ' <<<+-  plastic_'//PLASTICITY_DISLOUCLA_label//' init  -+>>>'
@@ -286,8 +286,7 @@ subroutine plastic_disloUCLA_init()
     sizeDotState = size(['rho_mob ','rho_dip ','gamma_sl']) * prm%sum_N_sl
     sizeState = sizeDotState
  
-    call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,0, &
+    call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,0)
-                                       prm%sum_N_sl,0,0)
 
 !--------------------------------------------------------------------------------------------------
 ! locally defined state aliases and initialization of state0 and aTolState

src/plastic_dislotwin.f90

@@ -185,7 +185,7 @@ subroutine plastic_dislotwin_init
 
  character(len=pStringLen) :: &
    extmsg = ''
- character(len=65536), dimension(:), allocatable :: &
+ character(len=pStringLen), dimension(:), allocatable :: &
    outputs
 
  write(6,'(/,a)')   ' <<<+-  constitutive_'//PLASTICITY_DISLOTWIN_label//' init  -+>>>'
@@ -506,8 +506,7 @@ subroutine plastic_dislotwin_init
                 + size(['f_tr'])                           * prm%sum_N_tr
    sizeState = sizeDotState
 
-   call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,0, &
+   call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,0)
-                                      prm%sum_N_sl,prm%sum_N_tw,prm%sum_N_tr)
 
 !--------------------------------------------------------------------------------------------------
 ! locally defined state aliases and initialization of state0 and aTolState

src/plastic_isotropic.f90

@@ -90,7 +90,7 @@ subroutine plastic_isotropic_init
  
   character(len=pStringLen) :: &
     extmsg = ''
-  character(len=65536), dimension(:), allocatable :: &
+  character(len=pStringLen), dimension(:), allocatable :: &
     outputs
  
   write(6,'(/,a)')   ' <<<+-  plastic_'//PLASTICITY_ISOTROPIC_label//' init  -+>>>'
@@ -179,8 +179,7 @@ subroutine plastic_isotropic_init
     sizeDotState = size(['xi               ','accumulated_shear'])
     sizeState = sizeDotState
  
-    call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,0, &
+    call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,0)
-                                       1,0,0)
  
 !--------------------------------------------------------------------------------------------------
 ! locally defined state aliases and initialization of state0 and aTolState

src/plastic_kinematichardening.f90

@@ -108,7 +108,7 @@ subroutine plastic_kinehardening_init
 
  character(len=pStringLen) :: &
    extmsg = ''
- character(len=65536), dimension(:), allocatable :: &
+ character(len=pStringLen), dimension(:), allocatable :: &
    outputs
 
  write(6,'(/,a)')   ' <<<+-  plastic_'//PLASTICITY_KINEHARDENING_label//' init  -+>>>'
@@ -245,8 +245,7 @@ subroutine plastic_kinehardening_init
    sizeDeltaState = size(['sense ',   'chi0  ',    'gamma0'   ]) * prm%totalNslip
    sizeState = sizeDotState + sizeDeltaState
 
-   call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,sizeDeltaState, &
+   call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,sizeDeltaState)
-                                      prm%totalNslip,0,0)
 
 !--------------------------------------------------------------------------------------------------
 ! locally defined state aliases and initialization of state0 and aTolState

src/plastic_none.f90

@@ -38,8 +38,8 @@ subroutine plastic_none_init
    if (phase_plasticity(p) /= PLASTICITY_NONE_ID) cycle
 
    NipcMyPhase = count(material_phaseAt == p) * discretization_nIP
-   call material_allocatePlasticState(p,NipcMyPhase,0,0,0, &
+   call material_allocatePlasticState(p,NipcMyPhase,0,0,0)
-                                      0,0,0)
+
  enddo
 
 end subroutine plastic_none_init

src/plastic_phenopowerlaw.f90

@@ -118,7 +118,7 @@ subroutine plastic_phenopowerlaw_init
 
  character(len=pStringLen) :: &
    extmsg = ''
- character(len=65536), dimension(:), allocatable :: &
+ character(len=pStringLen), dimension(:), allocatable :: &
    outputs
 
  write(6,'(/,a)')   ' <<<+-  plastic_'//PLASTICITY_PHENOPOWERLAW_label//' init  -+>>>'
@@ -304,8 +304,7 @@ subroutine plastic_phenopowerlaw_init
                 + size(['tau_twin  ','gamma_twin']) * prm%totalNtwin
    sizeState = sizeDotState
 
-   call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,0, &
+   call material_allocatePlasticState(p,NipcMyPhase,sizeState,sizeDotState,0)
-                                      prm%totalNslip,prm%totalNtwin,0)
 
 !--------------------------------------------------------------------------------------------------
 ! locally defined state aliases and initialization of state0 and aTolState

src/thermal_adiabatic.f90

@@ -47,7 +47,7 @@ contains
 subroutine thermal_adiabatic_init
  
   integer :: maxNinstance,o,h,NofMyHomog   
-  character(len=65536), dimension(:), allocatable :: outputs
+  character(len=pStringLen), dimension(:), allocatable :: outputs
  
   write(6,'(/,a)')   ' <<<+-  thermal_'//THERMAL_ADIABATIC_label//' init  -+>>>'; flush(6)
   

src/thermal_conduction.f90

@@ -49,7 +49,7 @@ subroutine thermal_conduction_init
 
   
   integer :: maxNinstance,o,NofMyHomog,h
-  character(len=65536), dimension(:), allocatable :: outputs
+  character(len=pStringLen), dimension(:), allocatable :: outputs
  
   write(6,'(/,a)')   ' <<<+-  thermal_'//THERMAL_CONDUCTION_label//' init  -+>>>'; flush(6)