use cascaded use statements
This commit is contained in:
parent
d76a360fa7
commit
b3f429165d
|
@ -15,6 +15,8 @@
|
||||||
#define PETSC_MINOR_MIN 10
|
#define PETSC_MINOR_MIN 10
|
||||||
#define PETSC_MINOR_MAX 11
|
#define PETSC_MINOR_MAX 11
|
||||||
module DAMASK_interface
|
module DAMASK_interface
|
||||||
|
use prec
|
||||||
|
use system_routines
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
private
|
private
|
||||||
|
@ -48,18 +50,8 @@ contains
|
||||||
!! information on computation to screen
|
!! information on computation to screen
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine DAMASK_interface_init
|
subroutine DAMASK_interface_init
|
||||||
use, intrinsic :: &
|
use, intrinsic :: iso_fortran_env
|
||||||
iso_fortran_env
|
|
||||||
use, intrinsic :: &
|
|
||||||
iso_c_binding
|
|
||||||
use PETScSys
|
use PETScSys
|
||||||
use prec, only: &
|
|
||||||
pReal
|
|
||||||
use system_routines, only: &
|
|
||||||
signalusr1_C, &
|
|
||||||
signalusr2_C, &
|
|
||||||
getHostName, &
|
|
||||||
getCWD
|
|
||||||
|
|
||||||
#include <petsc/finclude/petscsys.h>
|
#include <petsc/finclude/petscsys.h>
|
||||||
#if defined(__GFORTRAN__) && __GNUC__<GCC_MIN
|
#if defined(__GFORTRAN__) && __GNUC__<GCC_MIN
|
||||||
|
@ -305,9 +297,6 @@ end subroutine DAMASK_interface_init
|
||||||
!! possibly converting relative arguments to absolut path
|
!! possibly converting relative arguments to absolut path
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine setWorkingDirectory(workingDirectoryArg)
|
subroutine setWorkingDirectory(workingDirectoryArg)
|
||||||
use system_routines, only: &
|
|
||||||
getCWD, &
|
|
||||||
setCWD
|
|
||||||
|
|
||||||
character(len=*), intent(in) :: workingDirectoryArg !< working directory argument
|
character(len=*), intent(in) :: workingDirectoryArg !< working directory argument
|
||||||
character(len=1024) :: workingDirectory !< working directory argument
|
character(len=1024) :: workingDirectory !< working directory argument
|
||||||
|
@ -355,8 +344,6 @@ end function getSolverJobName
|
||||||
!> @brief basename of geometry file with extension from command line arguments
|
!> @brief basename of geometry file with extension from command line arguments
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
character(len=1024) function getGeometryFile(geometryParameter)
|
character(len=1024) function getGeometryFile(geometryParameter)
|
||||||
use system_routines, only: &
|
|
||||||
getCWD
|
|
||||||
|
|
||||||
character(len=1024), intent(in) :: geometryParameter
|
character(len=1024), intent(in) :: geometryParameter
|
||||||
logical :: file_exists
|
logical :: file_exists
|
||||||
|
@ -379,8 +366,6 @@ end function getGeometryFile
|
||||||
!> @brief relative path of loadcase from command line arguments
|
!> @brief relative path of loadcase from command line arguments
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
character(len=1024) function getLoadCaseFile(loadCaseParameter)
|
character(len=1024) function getLoadCaseFile(loadCaseParameter)
|
||||||
use system_routines, only: &
|
|
||||||
getCWD
|
|
||||||
|
|
||||||
character(len=1024), intent(in) :: loadCaseParameter
|
character(len=1024), intent(in) :: loadCaseParameter
|
||||||
logical :: file_exists
|
logical :: file_exists
|
||||||
|
@ -475,7 +460,6 @@ end function makeRelativePath
|
||||||
!> @brief sets global variable SIGTERM to .true.
|
!> @brief sets global variable SIGTERM to .true.
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine catchSIGTERM(signal) bind(C)
|
subroutine catchSIGTERM(signal) bind(C)
|
||||||
use :: iso_c_binding
|
|
||||||
|
|
||||||
integer(C_INT), value :: signal
|
integer(C_INT), value :: signal
|
||||||
SIGTERM = .true.
|
SIGTERM = .true.
|
||||||
|
@ -500,7 +484,6 @@ end subroutine setSIGTERM
|
||||||
!> @brief sets global variable SIGUSR1 to .true.
|
!> @brief sets global variable SIGUSR1 to .true.
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine catchSIGUSR1(signal) bind(C)
|
subroutine catchSIGUSR1(signal) bind(C)
|
||||||
use :: iso_c_binding
|
|
||||||
|
|
||||||
integer(C_INT), value :: signal
|
integer(C_INT), value :: signal
|
||||||
SIGUSR1 = .true.
|
SIGUSR1 = .true.
|
||||||
|
@ -525,7 +508,6 @@ end subroutine setSIGUSR1
|
||||||
!> @brief sets global variable SIGUSR2 to .true. if program receives SIGUSR2
|
!> @brief sets global variable SIGUSR2 to .true. if program receives SIGUSR2
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine catchSIGUSR2(signal) bind(C)
|
subroutine catchSIGUSR2(signal) bind(C)
|
||||||
use :: iso_c_binding
|
|
||||||
|
|
||||||
integer(C_INT), value :: signal
|
integer(C_INT), value :: signal
|
||||||
SIGUSR2 = .true.
|
SIGUSR2 = .true.
|
||||||
|
|
|
@ -38,11 +38,7 @@
|
||||||
!> Modeling and Simulations in Materials Science and Engineering 22, 075013 (2014).
|
!> Modeling and Simulations in Materials Science and Engineering 22, 075013 (2014).
|
||||||
!--------------------------------------------------------------------------
|
!--------------------------------------------------------------------------
|
||||||
module Lambert
|
module Lambert
|
||||||
use prec, only: &
|
use math
|
||||||
pReal
|
|
||||||
use math, only: &
|
|
||||||
PI
|
|
||||||
use future
|
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
private
|
private
|
||||||
|
@ -73,9 +69,6 @@ contains
|
||||||
!> @brief map from 3D cubic grid to 3D ball
|
!> @brief map from 3D cubic grid to 3D ball
|
||||||
!--------------------------------------------------------------------------
|
!--------------------------------------------------------------------------
|
||||||
function LambertCubeToBall(cube) result(ball)
|
function LambertCubeToBall(cube) result(ball)
|
||||||
use, intrinsic :: IEEE_ARITHMETIC
|
|
||||||
use prec, only: &
|
|
||||||
dEq0
|
|
||||||
|
|
||||||
real(pReal), intent(in), dimension(3) :: cube
|
real(pReal), intent(in), dimension(3) :: cube
|
||||||
real(pReal), dimension(3) :: ball, LamXYZ, XYZ
|
real(pReal), dimension(3) :: ball, LamXYZ, XYZ
|
||||||
|
@ -132,13 +125,6 @@ end function LambertCubeToBall
|
||||||
!> @brief map from 3D ball to 3D cubic grid
|
!> @brief map from 3D ball to 3D cubic grid
|
||||||
!--------------------------------------------------------------------------
|
!--------------------------------------------------------------------------
|
||||||
pure function LambertBallToCube(xyz) result(cube)
|
pure function LambertBallToCube(xyz) result(cube)
|
||||||
use, intrinsic :: IEEE_ARITHMETIC, only:&
|
|
||||||
IEEE_positive_inf, &
|
|
||||||
IEEE_value
|
|
||||||
use prec, only: &
|
|
||||||
dEq0
|
|
||||||
use math, only: &
|
|
||||||
math_clip
|
|
||||||
|
|
||||||
real(pReal), intent(in), dimension(3) :: xyz
|
real(pReal), intent(in), dimension(3) :: xyz
|
||||||
real(pReal), dimension(3) :: cube, xyz1, xyz3
|
real(pReal), dimension(3) :: cube, xyz1, xyz3
|
||||||
|
|
|
@ -6,7 +6,6 @@ module system_routines
|
||||||
use, intrinsic :: ISO_C_Binding
|
use, intrinsic :: ISO_C_Binding
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
private
|
|
||||||
|
|
||||||
public :: &
|
public :: &
|
||||||
signalterm_C, &
|
signalterm_C, &
|
||||||
|
|
Loading…
Reference in New Issue