From dbad2a7413380a0cc4d53dd7d7ceaa176e67d1e7 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 30 Jul 2023 23:17:21 +0200 Subject: [PATCH] hints from gfortran --- src/YAML_parse.f90 | 4 ++-- src/grid/grid_mech_spectral_basic.f90 | 6 ------ src/grid/grid_mech_spectral_polarization.f90 | 6 ------ src/grid/grid_thermal_spectral.f90 | 1 - 4 files changed, 2 insertions(+), 15 deletions(-) diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90 index 556b8fe96..527a9b3fc 100644 --- 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 index ed1ff1e2f..5bcfec438 100644 --- 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 index c6c7c2fd5..efa1a64a9 100644 --- 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 index 86d8e04f3..c178c5810 100644 --- 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