hints from gfortran

damask-multiphysics · Jul 30, 2023 · dbad2a7 · dbad2a7
1 parent e9eb346
commit dbad2a7
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 15 deletions.
diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90
@@ -162,7 +162,7 @@ end function parse_flow
 !> @brief Find location of chunk end: ',' '}', or ']'.
 !> @details leaves nested lists ( '[...]' and dicts '{...}') intact
 !--------------------------------------------------------------------------------------------------
-integer function find_end(str,e_char)
+integer(pI64) function find_end(str,e_char)
 
  character(len=*), intent(in) :: str !< chunk of YAML flow string
  character, intent(in) :: e_char !< end of list/dict ( '}' or ']')
@@ -456,7 +456,7 @@ end subroutine remove_line_break
 !--------------------------------------------------------------------------------------------------
 subroutine list_item_inline(blck,s_blck,inline,offset)
 
- character(len=*), intent(in) :: blck  !< YAML in mixed style
+ character(len=*), intent(in) :: blck !< YAML in mixed style
  integer, intent(inout) :: s_blck
  character(len=:), allocatable, intent(out) :: inline
  integer, intent(inout) :: offset

diff --git a/src/grid/grid_mech_spectral_basic.f90 b/src/grid/grid_mech_spectral_basic.f90
@@ -82,12 +82,6 @@ module grid_mechanical_spectral_basic
  err_BC, & !< deviation from stress BC
  err_div !< RMS of div of P
 
-#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
- type(MPI_Status) :: status
-#else
- integer, dimension(MPI_STATUS_SIZE) :: status
-#endif
-
  integer :: &
  totalIter = 0 !< total iteration in current increment
 

diff --git a/src/grid/grid_mech_spectral_polarization.f90 b/src/grid/grid_mech_spectral_polarization.f90
@@ -94,12 +94,6 @@ module grid_mechanical_spectral_polarization
  err_curl, & !< RMS of curl of F
  err_div !< RMS of div of P
 
-#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
- type(MPI_Status) :: status
-#else
- integer, dimension(MPI_STATUS_SIZE) :: status
-#endif
-
  integer :: &
  totalIter = 0 !< total iteration in current increment
 

diff --git a/src/grid/grid_thermal_spectral.f90 b/src/grid/grid_thermal_spectral.f90
@@ -189,7 +189,6 @@ function grid_thermal_spectral_solution(Delta_t) result(solution)
  real(pREAL), intent(in) :: &
  Delta_t !< increment in time for current solution
 
- integer :: i, j, k, ce
  type(tSolutionState) :: solution
  PetscInt :: devNull
  PetscReal :: T_min, T_max, stagNorm