|
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 |
