no frills

src/source_damage_isoBrittle.f90

@@ -6,23 +6,26 @@
 !--------------------------------------------------------------------------------------------------
 module source_damage_isoBrittle
   use prec
+  use debug
+  use IO
+  use material
+  use config
 
   implicit none
   private
   integer,                       dimension(:),           allocatable,         public, protected :: &
-   source_damage_isoBrittle_offset, &                                                                 !< which source is my current damage mechanism?
+    source_damage_isoBrittle_offset, &
-   source_damage_isoBrittle_instance                                                                  !< instance of damage source mechanism
+    source_damage_isoBrittle_instance
-
   integer,                       dimension(:,:),         allocatable, target, public :: &
-   source_damage_isoBrittle_sizePostResult                                                            !< size of each post result output
+    source_damage_isoBrittle_sizePostResult
-
   character(len=64),             dimension(:,:),         allocatable, target, public :: &
-   source_damage_isoBrittle_output                                                                    !< name of each post result output
+    source_damage_isoBrittle_output
 
   enum, bind(c) 
-   enumerator :: undefined_ID, &
+    enumerator :: &
+      undefined_ID, &
       damage_drivingforce_ID
- end enum                                                 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11 ToDo
+  end enum
 
 
   type, private :: tParameters                                                                      !< container type for internal constitutive parameters
@@ -34,7 +37,7 @@ module source_damage_isoBrittle
       outputID
   end type tParameters
 
- type(tParameters), dimension(:), allocatable, private :: param                                     !< containers of constitutive parameters (len Ninstance)
+  type(tParameters), dimension(:), allocatable  :: param                                            !< containers of constitutive parameters (len Ninstance)
 
 
   public :: &
@@ -51,25 +54,6 @@ contains
 !> @details reads in material parameters, allocates arrays, and does sanity checks
 !--------------------------------------------------------------------------------------------------
 subroutine source_damage_isoBrittle_init
- use debug, only: &
-   debug_level,&
-   debug_constitutive,&
-   debug_levelBasic
- use IO, only: &
-   IO_error
- use material, only: &
-   material_allocateSourceState, &
-   phase_source, &
-   phase_Nsources, &
-   phase_Noutput, &
-   SOURCE_damage_isoBrittle_label, &
-   SOURCE_damage_isoBrittle_ID, &
-   material_phase, &  
-   sourceState
- use config, only: &
-   config_phase, &
-   material_Nphase
-
 
   integer :: Ninstance,phase,instance,source,sourceOffset
   integer :: NofMyPhase,p,i   
@@ -164,12 +148,6 @@ end subroutine source_damage_isoBrittle_init
 !> @brief calculates derived quantities from state
 !--------------------------------------------------------------------------------------------------
 subroutine source_damage_isoBrittle_deltaState(C, Fe, ipc, ip, el)
- use material, only: &
-   phaseAt, phasememberAt, &
-   sourceState
- use math, only : &
-   math_sym33to6, &
-   math_I3
 
   integer, intent(in) :: &
     ipc, &                                                                                          !< component-ID of integration point
@@ -212,8 +190,6 @@ end subroutine source_damage_isoBrittle_deltaState
 !> @brief returns local part of nonlocal damage driving force
 !--------------------------------------------------------------------------------------------------
 subroutine source_damage_isoBrittle_getRateAndItsTangent(localphiDot, dLocalphiDot_dPhi, phi, phase, constituent)
- use material, only: &
-   sourceState
 
   integer, intent(in) :: &
     phase, &
@@ -241,8 +217,6 @@ end subroutine source_damage_isoBrittle_getRateAndItsTangent
 !> @brief return array of local damage results
 !--------------------------------------------------------------------------------------------------
 function source_damage_isoBrittle_postResults(phase, constituent)
- use material, only: &
-   sourceState
 
   integer, intent(in) :: &
     phase, &