Hi,
I do have the following problem:
I want to pass only one part of a 2d-array to a subroutine.
How can I handle this?
Example:
program ...
.
.
integer :: dim1, dim2, a2, a2, b1, b2, c1, c2
real :: array(0:Dim1,0:Dim2)
c1=a2-a1
c2=b2-b1
call sub1 (array (a1:a2, b1:b2), c1, c2)
.
.
end program ...
subroutine sub1 (array, c1, c2)
real :: array(0:c1, 0:c2)
.
.
.
end subroutine sub1
Thanks,
--
___________________________________________
| |
| Dirk Thorsten Vogel |
| |
| German Aerospace Center |
| -- TRACE- group -- |
| |
| Linder Höhe / D-51170 Köln |
| Tel.: +49 2203 601-2054 |
| Fax.: +49 2203 64395 |
| WWW : http://katrich.ia.kp.dlr.de: |
| 8080/private1.html (\
| E-Mail: [log in to unmask] ( \
|__________________________________________) ) />
/ ) / //))/
\ \_/ /////
\ /
\_ /
| |
| |
-----
-----
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|