Lines 96-103
Link Here
|
96 |
integer,intent(out) :: inplace,normalized |
96 |
integer,intent(out) :: inplace,normalized |
97 |
type(MPI_type),intent(inout) :: mpi_enreg |
97 |
type(MPI_type),intent(inout) :: mpi_enreg |
98 |
!arrays |
98 |
!arrays |
99 |
real(dp),intent(inout) :: work1(2,n4*n5*n6*ndat) |
99 |
real(dp),intent(inout) :: work1(2*n4,n5,n6,ndat) |
100 |
real(dp),intent(out) :: work2(2,n4*n5*n6*ndat) |
100 |
real(dp),intent(out) :: work2(2*n4,n5,n6,ndat) |
101 |
|
101 |
|
102 |
!Local variables ------------------------------ |
102 |
!Local variables ------------------------------ |
103 |
!scalars |
103 |
!scalars |