92 |
CADJ SUBROUTINE write_rec_lev_rl OUTPUT = |
CADJ SUBROUTINE write_rec_lev_rl OUTPUT = |
93 |
|
|
94 |
C---------------------------------------- |
C---------------------------------------- |
95 |
|
C subroutine set_write_global_sec |
96 |
|
C---------------------------------------- |
97 |
|
CADJ SUBROUTINE set_write_global_sec INPUT = 1 |
98 |
|
CADJ SUBROUTINE set_write_global_sec OUTPUT = |
99 |
|
|
100 |
|
C---------------------------------------- |
101 |
C subroutine write_rec_xz_rs |
C subroutine write_rec_xz_rs |
102 |
C---------------------------------------- |
C---------------------------------------- |
103 |
CADJ SUBROUTINE write_rec_xz_rs INPUT = 1,2,3,4,5,6,7 |
CADJ SUBROUTINE write_rec_xz_rs INPUT = 1,2,3,4,5,6,7 |