O******e
发帖数: 734 | 1 module blk1
integer,parameter::n=. . .
real,dimension(1:n),public::w1,w2,w3
end module blk1
subroutine a(. . .)
use blk1,only:v1=>w1,v2=>w2,v3=>w3
. . .
return
end subroutine a
subroutine b(. . .)
use blk1,only:u1=>w1,u2=>w2,u3=>w3
. . .
return
end subroutine b |
|
