pkg/autodiff/active_file_control.flow


c----------------------------------------
c subroutine active_read_rl
c----------------------------------------
cadj SUBROUTINE active_read_rl INPUT   = 1, 2, 3, 4, 5, 6, 7, 8, 9
cadj SUBROUTINE active_read_rl OUTPUT  =    2

c----------------------------------------
c subroutine active_write_rl
c----------------------------------------
cadj SUBROUTINE active_write_rl INPUT   = 1, 2, 3, 4, 5, 6, 7, 8
cadj SUBROUTINE active_write_rl OUTPUT  =    2

c----------------------------------------
c subroutine active_read_tile_rl
c----------------------------------------
cadj SUBROUTINE active_read_tile_rl INPUT   = 1, 2, 3, 4, 5, 6, 7, 8, 9
cadj SUBROUTINE active_read_tile_rl INPUT  += 10, 11
cadj SUBROUTINE active_read_tile_rl OUTPUT  =    2

c----------------------------------------
c subroutine active_write_tile_rl
c----------------------------------------
cadj SUBROUTINE active_write_tile_rl INPUT   = 1, 2, 3, 4, 5, 6, 7, 8, 9
cadj SUBROUTINE active_write_tile_rl INPUT  += 10
cadj SUBROUTINE active_write_tile_rl OUTPUT  =    2
1	heimbach	1.1
2			c----------------------------------------
3			c subroutine active_read_rl
4			c----------------------------------------
5			cadj SUBROUTINE active_read_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
6			cadj SUBROUTINE active_read_rl OUTPUT = 2
7
8			c----------------------------------------
9			c subroutine active_write_rl
10			c----------------------------------------
11			cadj SUBROUTINE active_write_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8
12			cadj SUBROUTINE active_write_rl OUTPUT = 2
13
14			c----------------------------------------
15			c subroutine active_read_tile_rl
16			c----------------------------------------
17			cadj SUBROUTINE active_read_tile_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
18			cadj SUBROUTINE active_read_tile_rl INPUT += 10, 11
19			cadj SUBROUTINE active_read_tile_rl OUTPUT = 2
20
21			c----------------------------------------
22			c subroutine active_write_tile_rl
23			c----------------------------------------
24			cadj SUBROUTINE active_write_tile_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
25			cadj SUBROUTINE active_write_tile_rl INPUT += 10
26			cadj SUBROUTINE active_write_tile_rl OUTPUT = 2