created new file containing all files to include for commercial FEM to simplify adding/renaming/removing modules

2014-10-21 15:31:28 +00:00 · 2014-10-21 15:31:28 +00:00 · 5c4e99f965
parent e779c2e1e6
commit 5c4e99f965
4 changed files with 42 additions and 98 deletions
--- a/code/CommercialFEM_fileList.f90
+++ b/code/CommercialFEM_fileList.f90
@ -0,0 +1,39 @@
+!--------------------------------------------------------------------------------------------------
+! $Id: libs.f90 3413 2014-08-24 22:07:53Z MPIE\m.diehl $
+!--------------------------------------------------------------------------------------------------
+!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
+!> @brief all DAMASK files without solver
+!> @details List of files needed by MSC.Marc, Abaqus/Explicit, and Abaqus/Standard
+!--------------------------------------------------------------------------------------------------
+#include "IO.f90"
+#include "libs.f90"
+#include "numerics.f90"
+#include "debug.f90"
+#include "math.f90"
+#include "FEsolving.f90"
+#include "mesh.f90"
+#include "material.f90"
+#include "lattice.f90"
+#include "damage_none.f90"
+#include "damage_brittle.f90"
+#include "damage_ductile.f90"
+#include "damage_gurson.f90"
+#include "damage_anisotropic.f90"
+#include "thermal_isothermal.f90"
+#include "thermal_adiabatic.f90"
+#include "vacancy_constant.f90"
+#include "vacancy_generation.f90"
+#include "constitutive_none.f90"
+#include "constitutive_j2.f90"
+#include "constitutive_phenopowerlaw.f90"
+#include "constitutive_titanmod.f90"
+#include "constitutive_dislotwin.f90"
+#include "constitutive_dislokmc.f90"
+#include "constitutive_nonlocal.f90"
+#include "constitutive.f90"
+#include "crystallite.f90"
+#include "homogenization_none.f90"
+#include "homogenization_isostrain.f90"
+#include "homogenization_RGC.f90"
+#include "homogenization.f90"
+#include "CPFEM.f90"
--- a/code/DAMASK_abaqus_exp.f
+++ b/code/DAMASK_abaqus_exp.f
@ -73,38 +73,7 @@ end function getSolverJobName

 end module DAMASK_interface

-#include "IO.f90"
-#include "libs.f90"
-#include "numerics.f90"
-#include "debug.f90"
-#include "math.f90"
-#include "FEsolving.f90"
-#include "mesh.f90"
-#include "material.f90"
-#include "lattice.f90"
-#include "damage_none.f90"
-#include "damage_brittle.f90"
-#include "damage_ductile.f90"
-#include "damage_gurson.f90"
-#include "damage_anisotropic.f90"
-#include "thermal_isothermal.f90"
-#include "thermal_adiabatic.f90"
-#include "vacancy_constant.f90"
-#include "vacancy_generation.f90"
-#include "constitutive_none.f90"
-#include "constitutive_j2.f90"
-#include "constitutive_phenopowerlaw.f90"
-#include "constitutive_titanmod.f90"
-#include "constitutive_dislotwin.f90"
-#include "constitutive_dislokmc.f90"
-#include "constitutive_nonlocal.f90"
-#include "constitutive.f90"
-#include "crystallite.f90"
-#include "homogenization_none.f90"
-#include "homogenization_isostrain.f90"
-#include "homogenization_RGC.f90"
-#include "homogenization.f90"
-#include "CPFEM.f90"
+#include CommercialFEM_fileList.f90

 subroutine vumat(nBlock, nDir, nshr, nStateV, nFieldV, nProps, lAnneal, &
                 stepTime, totalTime, dt, cmName, coordMp, charLength, &
--- a/code/DAMASK_abaqus_std.f
+++ b/code/DAMASK_abaqus_std.f
@ -73,41 +73,8 @@ end function getSolverJobName

 end module DAMASK_interface

-#include "IO.f90"
-#include "libs.f90"
-#include "numerics.f90"
-#include "debug.f90"
-#include "math.f90"
-#include "FEsolving.f90"
-#include "mesh.f90"
-#include "material.f90"
-#include "lattice.f90"
-#include "damage_none.f90"
-#include "damage_brittle.f90"
-#include "damage_ductile.f90"
-#include "damage_gurson.f90"
-#include "damage_anisotropic.f90"
-#include "thermal_isothermal.f90"
-#include "thermal_adiabatic.f90"
-#include "vacancy_constant.f90"
-#include "vacancy_generation.f90"
-#include "constitutive_none.f90"
-#include "constitutive_j2.f90"
-#include "constitutive_phenopowerlaw.f90"
-#include "constitutive_titanmod.f90"
-#include "constitutive_dislotwin.f90"
-#include "constitutive_dislokmc.f90"
-#include "constitutive_nonlocal.f90"
-#include "constitutive.f90"
-#include "crystallite.f90"
-#include "homogenization_none.f90"
-#include "homogenization_isostrain.f90"
-#include "homogenization_RGC.f90"
-#include "homogenization.f90"
-#include "CPFEM.f90"
+#include CommercialFEM_fileList.f90

-
- 
 subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
                RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,&
                TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,&
--- a/code/DAMASK_marc.f90
+++ b/code/DAMASK_marc.f90
@ -102,38 +102,7 @@ end function getSolverJobName

 end module DAMASK_interface

-#include "IO.f90"
-#include "libs.f90"
-#include "numerics.f90"
-#include "debug.f90"
-#include "math.f90"
-#include "FEsolving.f90"
-#include "mesh.f90"
-#include "material.f90"
-#include "lattice.f90"
-#include "damage_none.f90"
-#include "damage_brittle.f90"
-#include "damage_ductile.f90"
-#include "damage_gurson.f90"
-#include "damage_anisotropic.f90"
-#include "thermal_isothermal.f90"
-#include "thermal_adiabatic.f90"
-#include "vacancy_constant.f90"
-#include "vacancy_generation.f90"
-#include "constitutive_none.f90"
-#include "constitutive_j2.f90"
-#include "constitutive_phenopowerlaw.f90"
-#include "constitutive_titanmod.f90"
-#include "constitutive_dislotwin.f90"
-#include "constitutive_dislokmc.f90"
-#include "constitutive_nonlocal.f90"
-#include "constitutive.f90"
-#include "crystallite.f90"
-#include "homogenization_none.f90"
-#include "homogenization_isostrain.f90"
-#include "homogenization_RGC.f90"
-#include "homogenization.f90"
-#include "CPFEM.f90"
+#include CommercialFEM_fileList.f90

 !--------------------------------------------------------------------------------------------------
 !> @brief This is the MSC.Marc user subroutine for defining material behavior