root / synthbench / euroben-dm / mod2f / ltrans.f @ 0:839f52ef7657
History | View | Annotate | Download (695 Bytes)
1 |
Subroutine ltrans( m, n, ar, ai, wr, wi ) |
---|---|
2 |
! ------------------------------------------------------------------- |
3 |
! --- 'ltrans' transposes the arrays 'ar(m,n)' and 'ai(m,n)' and |
4 |
! leaves them in the arrays 'wr(n,m)' and 'wi(n,m)'. |
5 |
! ------------------------------------------------------------------- |
6 |
Use numerics |
7 |
Integer :: m, n |
8 |
Real(l_) :: ar(m,n), ai(m,n), wr(n,m), wi(n,m) |
9 |
|
10 |
Integer :: i |
11 |
! ------------------------------------------------------------------- |
12 |
Do i = 1, m |
13 |
wr(1:n,i) = ar(i,1:n) |
14 |
wi(1:n,i) = ai(i,1:n) |
15 |
End Do |
16 |
! ------------------------------------------------------------------- |
17 |
End Subroutine ltrans |