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

more appropriate name (conceptually not coupled to YAML)

This commit is contained in:
Martin Diehl 2023-12-14 06:03:02 +01:00 committed by achalhp
parent 2f5a2f4bef
commit 30ca657706
16 changed files with 45 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Marc/DAMASK_Marc.f90
View File

@ -20,7 +20,7 @@
#include "../parallelization.f90"
#include "../misc.f90"
#include "../IO.f90"
#include "../YAML_types.f90"
#include "../types.f90"
#include "../YAML_parse.f90"
#include "../HDF5_utilities.f90"
@ -187,7 +187,7 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
use prec
use DAMASK_interface
use config
use YAML_types
use types
use discretization_Marc
use homogenization
use materialpoint_Marc

4
src/Marc/materialpoint_Marc.f90
View File

@ -7,7 +7,7 @@ module materialpoint_Marc
use DAMASK_interface
use prec
use IO
use YAML_types
use types
use YAML_parse
use HDF5_utilities
use result
@ -70,7 +70,7 @@ subroutine materialpoint_initAll()
call DAMASK_interface_init()
call prec_init()
call IO_init()
call YAML_types_init()
call types_init()
call YAML_parse_init()
call HDF5_utilities_init()
call result_init(.false.)

2
src/YAML_parse.f90
View File

@ -8,7 +8,7 @@ module YAML_parse
use prec
use misc
use IO
use YAML_types
use types
#ifdef FYAML
use system_routines
#endif

2
src/config.f90
View File

@ -6,7 +6,7 @@ module config
use IO
use misc
use YAML_parse
use YAML_types
use types
use result
use parallelization
#if defined(MESH) || defined(GRID)

2
src/grid/grid_damage_spectral.f90
View File

@ -23,7 +23,7 @@ module grid_damage_spectral
use spectral_utilities
use discretization_grid
use homogenization
use YAML_types
use types
use config
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)

2
src/grid/grid_thermal_spectral.f90
View File

@ -23,7 +23,7 @@ module grid_thermal_spectral
use spectral_utilities
use discretization_grid
use homogenization
use YAML_types
use types
use config
use constants

2
src/material.f90
View File

@ -12,7 +12,7 @@ module material
use IO
use rotations
use discretization
use YAML_types
use types
implicit none(type,external)
private

4
src/materialpoint.f90
View File

@ -11,7 +11,7 @@ module materialpoint
use prec
use misc
use IO
use YAML_types
use types
use YAML_parse
use HDF5
use HDF5_utilities
@ -57,7 +57,7 @@ subroutine materialpoint_initAll()
#elif defined(GRID)
call base64_init()
#endif
call YAML_types_init()
call types_init()
call YAML_parse_init()
call HDF5_utilities_init()
call result_init(restart=CLI_restartInc>0)

2
src/math.f90
View File

@ -10,7 +10,7 @@ module math
use misc
use IO
use config
use YAML_types
use types
use parallelization
use LAPACK_interface

2
src/mesh/discretization_mesh.f90
View File

@ -22,7 +22,7 @@ module discretization_mesh
use discretization
use result
use FEM_quadrature
use YAML_types
use types
use prec
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)

2
src/polynomials.f90
View File

@ -6,7 +6,7 @@ module polynomials
use prec
use IO
use YAML_parse
use YAML_types
use types
implicit none(type,external)
private

2
src/tables.f90
View File

@ -7,7 +7,7 @@ module tables
use prec
use IO
use YAML_parse
use YAML_types
use types
implicit none(type,external)
private

6
src/test/DAMASK_test.f90
View File

@ -13,7 +13,7 @@ program DAMASK_test
use test_crystal
use test_rotations
use test_IO
use test_YAML_types
use test_types
use test_HDF5_utilities
external :: quit
@ -63,8 +63,8 @@ program DAMASK_test
call test_IO_run()
write(IO_STDOUT,fmt='(a)') ok
write(IO_STDOUT,fmt=fmt, advance='no') 'YAML_types','...'
call test_YAML_types_run()
write(IO_STDOUT,fmt=fmt, advance='no') 'types','...'
call test_types_run()
write(IO_STDOUT,fmt='(a)') ok
write(IO_STDOUT,fmt=fmt, advance='no') 'HDF5_utilities','...'

17
src/test/test_YAML_types.f90
View File

@ -1,17 +0,0 @@
module test_YAML_types
use YAML_types
implicit none(type,external)
private
public :: test_YAML_types_run
contains
subroutine test_YAML_types_run()
call YAML_types_selfTest()
end subroutine test_YAML_types_run
end module test_YAML_types

17
src/test/test_types.f90 Normal file
View File

@ -0,0 +1,17 @@
module test_types
use types
implicit none(type,external)
private
public :: test_types_run
contains
subroutine test_types_run()
call types_selfTest()
end subroutine test_types_run
end module test_types

20
src/YAML_types.f90 → src/types.f90
View File

@ -7,7 +7,7 @@
!! to a node.
!--------------------------------------------------------------------------------------------------
module YAML_types
module types
use IO
use prec
use misc
@ -152,8 +152,8 @@ module YAML_types
end interface assignment (=)
public :: &
YAML_types_init, &
YAML_types_selfTest, &
types_init, &
types_selfTest, &
#ifdef __GFORTRAN__
output_as1dStr, & !ToDo: Hack for GNU. Remove later
#endif
@ -164,19 +164,19 @@ contains
!--------------------------------------------------------------------------------------------------
!> @brief Do sanity checks.
!--------------------------------------------------------------------------------------------------
subroutine YAML_types_init
subroutine types_init
print'(/,1x,a)', '<<<+- YAML_types init -+>>>'
print'(/,1x,a)', '<<<+- types init -+>>>'
call YAML_types_selfTest()
call types_selfTest()
end subroutine YAML_types_init
end subroutine types_init
!--------------------------------------------------------------------------------------------------
!> @brief Check correctness of some type bound procedures.
!--------------------------------------------------------------------------------------------------
subroutine YAML_types_selfTest()
subroutine types_selfTest()
scalar: block
type(tScalar), target :: s
@ -315,7 +315,7 @@ subroutine YAML_types_selfTest()
end block dict_get_as1dReal_shape
#endif
end subroutine YAML_types_selfTest
end subroutine types_selfTest
!---------------------------------------------------------------------------------------------------
@ -1504,4 +1504,4 @@ recursive subroutine tItem_finalize(self)
end subroutine tItem_finalize
end module YAML_types
end module types