1 |
c---------------------------------------- |
2 |
c subroutine ctrl_bound_3D |
3 |
c---------------------------------------- |
4 |
cadj SUBROUTINE ctrl_bound_3D FTLNAME = g_ctrl_bound_3D |
5 |
cadj SUBROUTINE ctrl_bound_3D ADNAME = adctrl_bound_3D |
6 |
cadj SUBROUTINE ctrl_bound_3D INPUT = 1, 2, 3, 4,5,6 |
7 |
cadj SUBROUTINE ctrl_bound_3D OUTPUT = |
8 |
cadj SUBROUTINE ctrl_bound_3D ACTIVE = 3 |
9 |
cadj SUBROUTINE ctrl_bound_3D DEPEND = 1, 2, 4,5,6 |
10 |
c---------------------------------------- |
11 |
c subroutine ctrl_bound_2D |
12 |
c---------------------------------------- |
13 |
cadj SUBROUTINE ctrl_bound_2D FTLNAME = g_ctrl_bound_2D |
14 |
cadj SUBROUTINE ctrl_bound_2D ADNAME = adctrl_bound_2D |
15 |
cadj SUBROUTINE ctrl_bound_2D INPUT = 1, 2, 3, 4,5,6 |
16 |
cadj SUBROUTINE ctrl_bound_2D OUTPUT = |
17 |
cadj SUBROUTINE ctrl_bound_2D ACTIVE = 3 |
18 |
cadj SUBROUTINE ctrl_bound_2D DEPEND = 1, 2, 4,5,6 |