1 |
heimbach |
1.1 |
|
2 |
|
|
c---------------------------------------- |
3 |
|
|
c subroutine active_read_xz_rl |
4 |
|
|
c---------------------------------------- |
5 |
|
|
cadj SUBROUTINE active_read_xz_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
6 |
|
|
cadj SUBROUTINE active_read_xz_rl OUTPUT = 2 |
7 |
|
|
|
8 |
|
|
c---------------------------------------- |
9 |
|
|
c subroutine active_write_xz_rl |
10 |
|
|
c---------------------------------------- |
11 |
|
|
cadj SUBROUTINE active_write_xz_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8 |
12 |
|
|
cadj SUBROUTINE active_write_xz_rl OUTPUT = 2 |
13 |
|
|
|
14 |
|
|
c---------------------------------------- |
15 |
|
|
c subroutine active_read_yz_rl |
16 |
|
|
c---------------------------------------- |
17 |
|
|
cadj SUBROUTINE active_read_yz_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
18 |
|
|
cadj SUBROUTINE active_read_yz_rl OUTPUT = 2 |
19 |
|
|
|
20 |
|
|
c---------------------------------------- |
21 |
|
|
c subroutine active_write_yz_rl |
22 |
|
|
c---------------------------------------- |
23 |
|
|
cadj SUBROUTINE active_write_yz_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8 |
24 |
|
|
cadj SUBROUTINE active_write_yz_rl OUTPUT = 2 |