minor changes on buggy latest commit (wrong use statement)

code/DAMASK_spectral_driver.f90

@@ -70,7 +70,7 @@ program DAMASK_spectral_Driver
    integer(pInt) ::                incs                   = 0_pInt, &                               !< number of increments
                                    outputfrequency        = 1_pInt, &                               !< frequency of result writes
                                    restartfrequency       = 0_pInt, &                               !< frequency of restart writes
-                                   logscale               = 0_pInt                                  !< linear/logaritmic time inc flag
+                                   logscale               = 0_pInt                                  !< linear/logarithmic time inc flag
    logical ::                      followFormerTrajectory = .true.                                  !< follow trajectory of former loadcase 
  end type tLoadCase
 

code/DAMASK_spectral_solverAL.f90

@@ -140,7 +140,7 @@ subroutine AL_init()
  call SNESSetDM(snes,da,ierr); CHKERRQ(ierr)
  call SNESSetConvergenceTest(snes,AL_converged,dummy,PETSC_NULL_FUNCTION,ierr)
  CHKERRQ(ierr)
- call SNESSetFromOptions(snes,ierr) ; CHKERRQ(ierr)
+ call SNESSetFromOptions(snes,ierr); CHKERRQ(ierr)
 
 !--------------------------------------------------------------------------------------------------
 ! init fields                 

code/constitutive.f90

@@ -729,11 +729,14 @@ end subroutine constitutive_TandItsTangent
 !*  - el             : current element                                  *
 !************************************************************************
 pure subroutine constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, g, i, e)
-
+use prec, only: &
+  pReal
 use math, only : &
   math_mul33x33, &
+  math_mul3333xx33, &
   math_Mandel66to3333, &
-  math_transpose33
+  math_transpose33, &
+  math_I3
 implicit none
 
 !* Definition of variables
@@ -741,7 +744,7 @@ implicit none
 integer(pInt), intent(in) :: g, i, e
 real(pReal), dimension(3,3), intent(in) :: Fe
 
-integer(pInt)  p, o
+integer(pInt) ::  p, o
 real(pReal), dimension(3,3), intent(out) :: T
 real(pReal), dimension(3,3,3,3), intent(out) :: dT_dFe