From 43bd667f78e7fa95191e65413ec0f454a2bc4097 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Thu, 19 Jan 2012 20:39:33 +0000 Subject: [PATCH] switched array indices of curl_fft in accordance with math.f90 --- code/damask.core.pyf | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/damask.core.pyf b/code/damask.core.pyf index 82b324018..46465c7c3 100644 --- a/code/damask.core.pyf +++ b/code/damask.core.pyf @@ -77,9 +77,9 @@ python module core ! in integer, dimension(3), intent(in) :: res real*8, dimension(3), intent(in) :: geomdim 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 - 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 real*8, dimension(res[0]/2+1,res[1],res[2],3), depend(res[0],res[1],res[2]) :: xi end subroutine curl_fft