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

switched array indices of curl_fft in accordance with math.f90

This commit is contained in:
Philip Eisenlohr 2012-01-19 20:39:33 +00:00
parent a13aeb045f
commit 43bd667f78
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/damask.core.pyf
View File

@ -77,9 +77,9 @@ python module core ! in
integer, dimension(3), intent(in) :: res integer, dimension(3), intent(in) :: res
real*8, dimension(3), intent(in) :: geomdim real*8, dimension(3), intent(in) :: geomdim
integer, intent(in) :: vec_tens integer, intent(in) :: vec_tens
real*8, dimension(res[0], res[1], res[2], 3,vec_tens), intent(in), depend(res[0],res[1],res[2],vec_tens) :: field real*8, dimension(res[0], res[1], res[2], vec_tens,3), intent(in), depend(res[0],res[1],res[2],vec_tens) :: field
! output variables ! output variables
real*8, dimension(res[0], res[1], res[2], 3,vec_tens), intent(out), depend(res[0],res[1],res[2],vec_tens) :: curl real*8, dimension(res[0], res[1], res[2], vec_tens,3), intent(out), depend(res[0],res[1],res[2],vec_tens) :: curl
! variables with dimension depending on input ! variables with dimension depending on input
real*8, dimension(res[0]/2+1,res[1],res[2],3), depend(res[0],res[1],res[2]) :: xi real*8, dimension(res[0]/2+1,res[1],res[2],3), depend(res[0],res[1],res[2]) :: xi
end subroutine curl_fft end subroutine curl_fft