18 |
C---------------------------------------- |
C---------------------------------------- |
19 |
CADJ SUBROUTINE diagnostics_init_varia INPUT = 1 |
CADJ SUBROUTINE diagnostics_init_varia INPUT = 1 |
20 |
CADJ SUBROUTINE diagnostics_init_varia OUTPUT = |
CADJ SUBROUTINE diagnostics_init_varia OUTPUT = |
21 |
|
CADJ SUBROUTINE diagnostics_init_varia DEPEND = 1 |
22 |
|
CADJ SUBROUTINE diagnostics_init_varia REQUIRED |
23 |
|
|
24 |
|
|
25 |
C---------------------------------------- |
C---------------------------------------- |
26 |
C FUNCTION diagnostics_is_on |
C FUNCTION diagnostics_is_on |