From a2f898a94c3c23d73d17bce32c77ae961696518a Mon Sep 17 00:00:00 2001 From: Daniel Otto de Mentock Date: Fri, 25 Nov 2022 15:12:07 +0100 Subject: [PATCH] correcting function return type, indentation --- src/grid/spectral_utilities.f90 | 2 +- src/homogenization_mechanical_RGC.f90 | 2 +- src/prec.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index 8b39c44de..1ca1d0b16 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -1011,7 +1011,7 @@ subroutine utilities_updateCoords(F) #endif real(pReal), dimension(3) :: step real(pReal), dimension(3,3) :: Favg - integer, dimension(3) :: me + integer, dimension(3) :: me integer, dimension(3,8) :: & neighbor = reshape([ & 0, 0, 0, & diff --git a/src/homogenization_mechanical_RGC.f90 b/src/homogenization_mechanical_RGC.f90 index 53b1ba350..d60e04cf5 100644 --- a/src/homogenization_mechanical_RGC.f90 +++ b/src/homogenization_mechanical_RGC.f90 @@ -668,7 +668,7 @@ module function RGC_updateState(P,F,avgF,dt,dPdF,ce) result(doneAndHappy) real(pReal), dimension(:,:,:), intent(out) :: F !< partitioned F per grain real(pReal), dimension(:,:), intent(in) :: avgF !< averaged F - integer, intent(in) :: & + integer, intent(in) :: & ho, & en diff --git a/src/prec.f90 b/src/prec.f90 index d0c1022fd..c56ee500b 100644 --- a/src/prec.f90 +++ b/src/prec.f90 @@ -205,7 +205,7 @@ end function prec_bytesToC_FLOAT pure function prec_bytesToC_DOUBLE(bytes) integer(C_SIGNED_CHAR), dimension(:), intent(in) :: bytes !< byte-wise representation of a C_DOUBLE array - real(pReal), dimension(size(bytes,kind=pI64)/(storage_size(0._C_DOUBLE,pI64)/8_pI64)) :: & + real(C_DOUBLE), dimension(size(bytes,kind=pI64)/(storage_size(0._C_DOUBLE,pI64)/8_pI64)) :: & prec_bytesToC_DOUBLE