223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

better have a separate module

This commit is contained in:
Martin Diehl 2019-03-28 06:52:17 +01:00
parent 6996eb36c0
commit 4470ecfe4a
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/CMakeLists.txt
View File

@ -44,8 +44,12 @@ add_library(DEBUG OBJECT "debug.f90")
add_dependencies(DEBUG IO) add_dependencies(DEBUG IO)
list(APPEND OBJECTFILES $<TARGET_OBJECTS:DEBUG>) list(APPEND OBJECTFILES $<TARGET_OBJECTS:DEBUG>)
add_library(DAMASK_CONFIG OBJECT "config.f90") add_library(DAMASK_LIST OBJECT "list.f90") # LIST is a keyword in CMake
add_dependencies(DAMASK_CONFIG DEBUG) add_dependencies(DAMASK_LIST IO)
list(APPEND OBJECTFILES $<TARGET_OBJECTS:DAMASK_LIST>)
add_library(DAMASK_CONFIG OBJECT "config.f90") # CONFIG is a keyword in CMake
add_dependencies(DAMASK_CONFIG DAMASK_LIST DEBUG)
list(APPEND OBJECTFILES $<TARGET_OBJECTS:DAMASK_CONFIG>) list(APPEND OBJECTFILES $<TARGET_OBJECTS:DAMASK_CONFIG>)
add_library(HDF5_UTILITIES OBJECT "HDF5_utilities.f90") add_library(HDF5_UTILITIES OBJECT "HDF5_utilities.f90")

1
src/commercialFEM_fileList.f90
View File

@ -6,6 +6,7 @@
#include "IO.f90" #include "IO.f90"
#include "numerics.f90" #include "numerics.f90"
#include "debug.f90" #include "debug.f90"
#include "list.f90"
#include "config.f90" #include "config.f90"
#ifdef DAMASKHDF5 #ifdef DAMASKHDF5
#include "HDF5_utilities.f90" #include "HDF5_utilities.f90"

2
src/list.f90
View File

@ -225,6 +225,7 @@ real(pReal) function getFloat(this,key,defaultVal)
type(tPartitionedStringList), pointer :: item type(tPartitionedStringList), pointer :: item
logical :: found logical :: found
getFloat = huge(1.0) ! suppress warning about unitialized value
found = present(defaultVal) found = present(defaultVal)
if (found) getFloat = defaultVal if (found) getFloat = defaultVal
@ -261,6 +262,7 @@ integer function getInt(this,key,defaultVal)
type(tPartitionedStringList), pointer :: item type(tPartitionedStringList), pointer :: item
logical :: found logical :: found
getInt = huge(1) ! suppress warning about unitialized value
found = present(defaultVal) found = present(defaultVal)
if (found) getInt = defaultVal if (found) getInt = defaultVal