223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

avoid use of unitialized variable (x_ref) 

further polishing for better readability
This commit is contained in:
Martin Diehl 2023-09-27 19:19:54 +02:00
parent a5a4ba0a54
commit 8489658cb4
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/polynomials.f90
View File

@ -68,26 +68,24 @@ function polynomial_from_dict(dict,y,x) result(p)
type(tPolynomial) :: p type(tPolynomial) :: p
real(pREAL), dimension(:), allocatable :: coef real(pREAL), dimension(:), allocatable :: coef
real(pREAL) :: x_ref
integer :: i, o integer :: i, o
character(len=1) :: o_s character :: o_s
allocate(coef(1),source=dict%get_asReal(y)) allocate(coef(1),source=dict%get_asReal(y))
if (dict%contains(y//','//x)) then if (dict%contains(y//','//x)) coef = [coef,dict%get_asReal(y//','//x)]
x_ref = dict%get_asReal(x//'_ref')
coef = [coef,dict%get_asReal(y//','//x)]
end if
do o = 2,4 do o = 2,4
write(o_s,'(I0.0)') o write(o_s,'(I0.0)') o
if (dict%contains(y//','//x//'^'//o_s)) then if (dict%contains(y//','//x//'^'//o_s)) &
x_ref = dict%get_asReal(x//'_ref')
coef = [coef,[(0.0_pREAL,i=size(coef),o-1)],dict%get_asReal(y//','//x//'^'//o_s)] coef = [coef,[(0.0_pREAL,i=size(coef),o-1)],dict%get_asReal(y//','//x//'^'//o_s)]
end if
end do end do
p = Polynomial(coef,x_ref) if (size(coef) > 1) then
p = polynomial(coef,dict%get_asReal(x//'_ref'))
else
p = polynomial(coef,-huge(1.0_pREAL))
end if
end function polynomial_from_dict end function polynomial_from_dict
@ -105,8 +103,8 @@ pure function eval(self,x) result(y)
integer :: o integer :: o
y = 0.0_pREAL y = self%coef(ubound(self%coef,1))
do o = ubound(self%coef,1), 0, -1 do o = ubound(self%coef,1)-1, 0, -1
y = y*(x-self%x_ref) + self%coef(o) y = y*(x-self%x_ref) + self%coef(o)
end do end do