1 |
|
|
2 |
C---------------------------------------- |
C---------------------------------------- |
3 |
|
C subroutine exf_monitor |
4 |
|
C---------------------------------------- |
5 |
|
CADJ SUBROUTINE exf_monitor INPUT = 1,2,3 |
6 |
|
CADJ SUBROUTINE exf_monitor OUTPUT = |
7 |
|
|
8 |
|
C---------------------------------------- |
9 |
C subroutine exf_check_range |
C subroutine exf_check_range |
10 |
C---------------------------------------- |
C---------------------------------------- |
11 |
CADJ SUBROUTINE exf_check_range INPUT = 1,2,3 |
CADJ SUBROUTINE exf_check_range INPUT = 1,2,3 |