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

generated by
Intel(R) C++/Fortran Compiler code-coverage tool
Web-Page Owner: Nobody