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