pflotran_provenance.F90 coverage: 100.00 %func 100.00 %block
1)
2) module PFLOTRAN_Provenance_module
3)
4) !
5) !-_-! write_warning_comment !-_-!
6) !
7) ! IMPORTANT NOTE: This module should have no dependencies on other modules!!!
8) !
9) ! Purpose: This file is a template / dummy file for
10) ! pflotran_provenance.F90. pflotran-provenance.py automatically
11) ! generantes pflotran_provenance.F90 from pflotran_no_provenance.F90.
12) ! If you can not run pflotran-provenance.py to generate the provenance
13) ! information, then modify your build system to compile and link this
14) ! file instead of pflotran_provenance.F90
15) !
16)
17) #include "petsc/finclude/petscsysdef.h"
18)
19) implicit none
20)
21) public
22)
23) ! Size of provenance information
24) PetscInt, parameter :: provenance_max_str_len = 7
25)
26)
27) ! PFLOTRAN provenance information
28) character(len=*), parameter :: pflotran_compile_date_time = "unknown"
29) character(len=*), parameter :: pflotran_compile_user = "unknown"
30) character(len=*), parameter :: pflotran_compile_hostname = "unknown"
31) character(len=*), parameter :: pflotran_changeset = "unknown"
32) character(len=*), parameter :: pflotran_status = "unknown"
33)
34) PetscInt, parameter :: detail_pflotran_fflags_len = 1
35) character(len=provenance_max_str_len), parameter :: &
36) detail_pflotran_fflags(detail_pflotran_fflags_len) = (/ "unknown" /)
37)
38) PetscInt, parameter :: detail_pflotran_status_len = 1
39) character(len=provenance_max_str_len), parameter :: &
40) detail_pflotran_status(detail_pflotran_status_len) = (/ "unknown" /)
41)
42) PetscInt, parameter :: detail_pflotran_parent_len = 1
43) character(len=provenance_max_str_len), parameter :: &
44) detail_pflotran_parent(detail_pflotran_parent_len) = (/ "unknown" /)
45)
46) ! FIXME(bja, 2013-11-25): break gcc when diffs are present
47) PetscInt, parameter :: detail_pflotran_diff_len = 1
48) character(len=provenance_max_str_len), parameter :: &
49) detail_pflotran_diff(detail_pflotran_diff_len) = (/ "unknown" /)
50)
51) ! PETSc provenance information
52) character(len=*), parameter :: petsc_status = "unknown"
53) character(len=*), parameter :: petsc_changeset = "unknown"
54)
55) PetscInt, parameter :: detail_petsc_status_len = 1
56) character(len=provenance_max_str_len), parameter :: &
57) detail_petsc_status(detail_petsc_status_len) = (/ "unknown" /)
58)
59) PetscInt, parameter :: detail_petsc_parent_len = 1
60) character(len=provenance_max_str_len), parameter :: &
61) detail_petsc_parent(detail_petsc_parent_len) = (/ "unknown" /)
62)
63) PetscInt, parameter :: detail_petsc_config_len = 1
64) character(len=provenance_max_str_len), parameter :: &
65) detail_petsc_config(detail_petsc_config_len) = (/ "unknown" /)
66)
67) public :: PrintProvenanceToScreen
68)
69) contains
70)
71) subroutine PrintProvenanceToScreen()
72)
73) implicit none
74)
75) PetscInt i
76)
77) write(*, '(''------------------------------ Provenance --------------------------------------'')')
78)
79) write(*, '(''pflotran_compile_date_time = '', a)') pflotran_compile_date_time
80) write(*, '(''pflotran_compile_user = '', a)') pflotran_compile_user
81) write(*, '(''pflotran_compile_hostname = '', a)') pflotran_compile_hostname
82) write(*, '(''pflotran_changeset = '', a)') pflotran_changeset
83) write(*, '(''pflotran_status = '', a)') pflotran_status
84) write(*, '(''petsc_changeset = '', a)') petsc_changeset
85) write(*, '(''petsc_status = '', a)') petsc_status
86)
87) !-_-! write_provenance_details !-_-!
88)
89) write(*, '(''--------------------------------------------------------------------------------'')')
90)
91) end subroutine PrintProvenanceToScreen
92)
93) ! ************************************************************************** !
94)
95) end module PFLOTRAN_Provenance_module