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

cleaning

This commit is contained in:
Martin Diehl 2020-02-03 23:48:09 +01:00
parent 9e131c0110
commit 2d74a83dad
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/math.f90
View File

@ -175,13 +175,13 @@ recursive subroutine math_sort(a, istart, iend, sortDim)
do i = istart, iend do i = istart, iend
if (a(sort,i) > a(sort,istart)) exit if (a(sort,i) > a(sort,istart)) exit
enddo enddo
cross: if (i >= j) then ! if the indices cross, exchange left value with pivot and return with the partition index cross: if (i >= j) then ! exchange left value with pivot and return with the partition index
tmp = a(:,istart) tmp = a(:,istart)
a(:,istart) = a(:,j) a(:,istart) = a(:,j)
a(:,j) = tmp a(:,j) = tmp
qsort_partition = j qsort_partition = j
return return
else cross ! if they do not cross, exchange values else cross ! exchange values
tmp = a(:,i) tmp = a(:,i)
a(:,i) = a(:,j) a(:,i) = a(:,j)
a(:,j) = tmp a(:,j) = tmp
@ -201,7 +201,7 @@ end subroutine math_sort
pure function math_expand(what,how) pure function math_expand(what,how)
real(pReal), dimension(:), intent(in) :: what real(pReal), dimension(:), intent(in) :: what
integer, dimension(:), intent(in) :: how integer, dimension(:), intent(in) :: how
real(pReal), dimension(sum(how)) :: math_expand real(pReal), dimension(sum(how)) :: math_expand
integer :: i integer :: i
@ -258,7 +258,8 @@ pure function math_identity4th(d)
identity2nd = math_identity2nd(d) identity2nd = math_identity2nd(d)
do i=1,d; do j=1,d; do k=1,d; do l=1,d do i=1,d; do j=1,d; do k=1,d; do l=1,d
math_identity4th(i,j,k,l) = 0.5_pReal*(identity2nd(i,k)*identity2nd(j,l)+identity2nd(i,l)*identity2nd(j,k)) math_identity4th(i,j,k,l) = 0.5_pReal &
*(identity2nd(i,k)*identity2nd(j,l)+identity2nd(i,l)*identity2nd(j,k))
enddo; enddo; enddo; enddo enddo; enddo; enddo; enddo
end function math_identity4th end function math_identity4th