root / synthbench / euroben-dm / mod2g / .svn / text-base / gendat.f.svn-base @ 0:839f52ef7657
History | View | Annotate | Download (888 Bytes)
1 |
Subroutine gendat( a, n1, n2, actsiz, base ) |
---|---|
2 |
! --------------------------------------------------------------------- |
3 |
! --- 'gendat' generates the input data for the Wavelet transform and |
4 |
! puts them in array 'a'. |
5 |
! --------------------------------------------------------------------- |
6 |
Use numerics |
7 |
Use dist_module ! Contains # of proc.s & proc. no.s |
8 |
Implicit None |
9 |
|
10 |
Integer :: n1, n2 |
11 |
Real(l_) :: a(n1,n2) |
12 |
Integer :: actsiz(0:nodes-1,2), base(0:nodes-1,2) |
13 |
|
14 |
Integer :: i1, i2, shift |
15 |
! --------------------------------------------------------------------- |
16 |
shift = base(me,2) |
17 |
Do i2 = 1, actsiz(me,2) |
18 |
Do i1 = 1, n1 |
19 |
a(i1,i2) = (shift + i2 - 1)*n1 + i1 |
20 |
End Do |
21 |
End Do |
22 |
! --------------------------------------------------------------------- |
23 |
End Subroutine gendat |