6
6
! > @brief Parse command line interface for PETSc-based solvers
7
7
!- -------------------------------------------------------------------------------------------------
8
8
#define PETSC_MINOR_MIN 12
9
- #define PETSC_MINOR_MAX 20
9
+ #define PETSC_MINOR_MAX 21
10
10
11
11
module CLI
12
12
use , intrinsic :: ISO_fortran_env
@@ -46,11 +46,11 @@ subroutine CLI_init()
46
46
-- UNSUPPORTED PETSc VERSION --- UNSUPPORTED PETSc VERSION --- UNSUPPORTED PETSc VERSION ---
47
47
#endif
48
48
#if PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR==18
49
- character (len =* ), parameter :: PETSc_DOI = ' 10.2172/1893326'
49
+ # define PETSC_DOI '10.2172/1893326'
50
50
#elif PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR==19
51
- character (len =* ), parameter :: PETSc_DOI = ' 10.2172/1968587'
51
+ # define PETSC_DOI '10.2172/1968587'
52
52
#elif PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR==20
53
- character (len =* ), parameter :: PETSc_DOI = ' 10.2172/2205494'
53
+ # define PETSC_DOI '10.2172/2205494'
54
54
#endif
55
55
character (len= :), allocatable :: &
56
56
commandLine, & ! < command line call as string
@@ -65,7 +65,9 @@ subroutine CLI_init()
65
65
i, s
66
66
integer , dimension (8 ) :: &
67
67
dateAndTime
68
-
68
+ #ifdef PETSC_DOI
69
+ character (len=* ), parameter :: PETSc_DOI = PETSC_DOI
70
+ #endif
69
71
70
72
workingDirArg = getCWD()
71
73
@@ -97,7 +99,9 @@ subroutine CLI_init()
97
99
print ' (1x,a)' , ' https://doi.org/10.1016/j.commatsci.2018.04.030' // IO_EOL
98
100
#if PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>=18
99
101
print ' (1x,a,i0,a,i0)' , ' S. Balay et al., PETSc/TAO User Manual Revision ' ,PETSC_VERSION_MAJOR,' .' ,PETSC_VERSION_MINOR
102
+ #ifdef PETSC_DOI
100
103
print ' (1x,a)' , ' https://doi.org/' // PETSc_DOI
104
+ #endif
101
105
#endif
102
106
print ' (/,1x,a)' , ' Version: ' // DAMASKVERSION
103
107
0 commit comments