removed forgotten debug statements from last commit

fixed material.config for abaqus example

code/DAMASK_spectral_driver.f90

@@ -135,7 +135,6 @@ program DAMASK_spectral_Driver
 !--------------------------------------------------------------------------------------------------
 ! init DAMASK (all modules)
  call CPFEM_initAll(temperature = 300.0_pReal, el = 1_pInt, ip = 1_pInt)
- !print*, 'Flag'
  write(6,'(/,a)')   ' <<<+-  DAMASK_spectral_driver init  -+>>>'
  write(6,'(a)')     ' $Id$'
  write(6,'(a15,a)') ' Current time: ',IO_timeStamp()

code/constitutive_phenopowerlaw.f90

@@ -155,12 +155,8 @@ subroutine constitutive_phenopowerlaw_init(fileUnit)
  write(6,'(/,a)')   ' <<<+-  constitutive_'//PLASTICITY_PHENOPOWERLAW_label//' init  -+>>>'
  write(6,'(a)')     ' $Id$'
  write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
- write(6,*)  '******Flag in DAMASK********'
 #include "compilation_info.f90"
  
-
- 
-! write(6,*) 'lattice_maxNslipFamily=',lattice_maxNslipFamily
  maxNinstance = int(count(phase_plasticity == PLASTICITY_PHENOPOWERLAW_ID),pInt)
  if (maxNinstance == 0_pInt) return
 
@@ -702,7 +698,7 @@ pure subroutine constitutive_phenopowerlaw_LpAndItsTangent(Lp,dLp_dTstar99,Tstar
                     ((abs(tau_slip_neg(j))/state%p(j))**constitutive_phenopowerlaw_n_slip(instance))*&
                                                                     sign(1.0_pReal,tau_slip_neg(j))
      Lp = Lp + (1.0_pReal-state%p(index_F))*&                     ! 1-F
-               (gdot_slip_pos(j)+gdot_slip_neg(j))*lattice_Sslip(1:3,1:3,1,index_myFamily+i,phase) +1
+               (gdot_slip_pos(j)+gdot_slip_neg(j))*lattice_Sslip(1:3,1:3,1,index_myFamily+i,phase)
 
 !--------------------------------------------------------------------------------------------------
 ! Calculation of the tangent of Lp

code/crystallite.f90

@@ -3547,11 +3547,4 @@ function crystallite_postResults(ipc, ip, el)
 
 end function crystallite_postResults
 
-!subroutine gradients
-!use DAMASK_spectral_utilities
-
-!implicit none
-
-!end subroutine gradients
-
 end module crystallite

code/mesh.f90

@@ -615,7 +615,6 @@ subroutine mesh_init(ip,el)
  calcMode = .false.                                                                                 ! pretend to have collected what first call is asking (F = I)
  calcMode(ip,mesh_FEasCP('elem',el)) = .true.                                                       ! first ip,el needs to be already pingponged to "calc"
 
- print*,'flag in mesh',mesh_maxNips,mesh_NcpElems
 
 end subroutine mesh_init
 

examples/AbaqusStandard/material.config

@@ -57,8 +57,8 @@ plasticity              phenopowerlaw
 (output)                totalvolfrac
 
 lattice_structure       fcc
-Nslip                   12  0  0  0              # per family
-Ntwin                    0  0  0  0              # per family
+Nslip                   12
+Ntwin                    0
 
 c11                     106.75e9
 c12                     60.41e9