1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
C/MEMBR ADD NAME=MTRAN,SSI=0
subroutine mtran(a,na,b,nb,m,n)
c!but
c mtran transpose la matrice a dans le tableau b
c a et b n'ayant pas la meme implantation memoire
c
c!liste d'appel
c subroutine mtran(a,na,b,nb,m,n)
c double precision a(na,n),b(nb,m)
c integer na,nb,m,n
c
c a tableau contenant la matrice a
c na nombre de ligne du tableau a dans le prog appelant
c b,nb definition similaire a celle de a,na
c m nombre de lignes de a et de colonnes de b
c n nombre de colonnes de a et de lignes de b
c!sous programmes utilises
c neant
c!
double precision a(*),b(*)
integer na,nb,m,n
integer i,j,ia,ib
c
ia=0
do 20 j=1,n
ib=j
do 10 i=1,m
b(ib)=a(ia+i)
ib=ib+nb
10 continue
ia=ia+na
20 continue
return
end
|
