From 8bd708f3b1bf130dd41446b3c40d619042e16e76 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 14 Mar 2020 13:53:21 +0100 Subject: [PATCH] correct type --- src/lattice.f90 | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index 6d5fab217..b41a7f261 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -2236,12 +2236,12 @@ end function getlabels !-------------------------------------------------------------------------------------------------- function equivalent_nu(C,assumption) result(nu) - real, dimension(6,6), intent(in) :: C !< Stiffness tensor (Voigt notation) - character(len=*), intent(in) :: assumption !< Assumption ('Voigt' = isostrain, 'Reuss' = isostress) + real(pReal), dimension(6,6), intent(in) :: C !< Stiffness tensor (Voigt notation) + character(len=*), intent(in) :: assumption !< Assumption ('Voigt' = isostrain, 'Reuss' = isostress) - real :: K, mu, nu - logical :: error - real, dimension(6,6) :: S + real(pReal) :: K, mu, nu + logical :: error + real(pReal), dimension(6,6) :: S if (IO_lc(assumption) == 'voigt') then K = (C(1,1)+C(2,2)+C(3,3) +2.0_pReal*(C(1,2)+C(2,3)+C(1,3))) & @@ -2268,12 +2268,12 @@ end function equivalent_nu !-------------------------------------------------------------------------------------------------- function equivalent_mu(C,assumption) result(mu) - real, dimension(6,6), intent(in) :: C !< Stiffness tensor (Voigt notation) - character(len=*), intent(in) :: assumption !< Assumption ('Voigt' = isostrain, 'Reuss' = isostress) + real(pReal), dimension(6,6), intent(in) :: C !< Stiffness tensor (Voigt notation) + character(len=*), intent(in) :: assumption !< Assumption ('Voigt' = isostrain, 'Reuss' = isostress) - real :: mu - logical :: error - real, dimension(6,6) :: S + real(pReal) :: mu + logical :: error + real(pReal), dimension(6,6) :: S if (IO_lc(assumption) == 'voigt') then mu = (1.0_pReal*(C(1,1)+C(2,2)+C(3,3)) -1.0_pReal*(C(1,2)+C(2,3)+C(1,3)) +3.0_pReal*(C(4,4)+C(5,5)+C(6,6))) &