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

easier to read

This commit is contained in:
Martin Diehl 2019-09-28 18:30:16 -07:00
parent c71374a3f3
commit e04b074f3c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/grid/spectral_utilities.f90
View File

@ -1058,12 +1058,12 @@ subroutine utilities_updateCoords(F)
if (grid3Offset == 0) offset_coords = vectorField_real(1:3,1,1,1) if (grid3Offset == 0) offset_coords = vectorField_real(1:3,1,1,1)
call MPI_Bcast(offset_coords,3,MPI_DOUBLE,0,PETSC_COMM_WORLD,ierr) call MPI_Bcast(offset_coords,3,MPI_DOUBLE,0,PETSC_COMM_WORLD,ierr)
if(ierr /=0) call IO_error(894, ext_msg='update_IPcoords') if(ierr /=0) call IO_error(894, ext_msg='update_IPcoords')
offset_coords = matmul(Favg,step/2.0_pReal) - offset_coords offset_coords = offset_coords - matmul(Favg,step/2.0_pReal)
do k = 1,grid3; do j = 1,grid(2); do i = 1,grid(1) do k = 1,grid3; do j = 1,grid(2); do i = 1,grid(1)
IPcoords(1:3,i,j,k) = vectorField_real(1:3,i,j,k) & IPcoords(1:3,i,j,k) = vectorField_real(1:3,i,j,k) &
+ offset_coords & + matmul(Favg,step*real([i,j,k+grid3Offset]-1,pReal)) &
+ matmul(Favg,step*real([i,j,k+grid3Offset]-1,pReal)) - offset_coords
enddo; enddo; enddo enddo; enddo; enddo
call discretization_setIPcoords(reshape(IPcoords,[3,grid(1)*grid(2)*grid3])) call discretization_setIPcoords(reshape(IPcoords,[3,grid(1)*grid(2)*grid3]))