52 |
C---------------------------------------- |
C---------------------------------------- |
53 |
CADJ SUBROUTINE write_fld_xyz_rl INPUT = 1,2,3,4,5 |
CADJ SUBROUTINE write_fld_xyz_rl INPUT = 1,2,3,4,5 |
54 |
CADJ SUBROUTINE write_fld_xyz_rl OUTPUT = |
CADJ SUBROUTINE write_fld_xyz_rl OUTPUT = |
55 |
|
|
56 |
|
C---------------------------------------- |
57 |
|
C subroutine write_local_rl |
58 |
|
C---------------------------------------- |
59 |
|
CADJ SUBROUTINE write_local_rl INPUT = 1,2,3,4,5,6,7,8,9 |
60 |
|
CADJ SUBROUTINE write_local_rl OUTPUT = |
61 |
|
|
62 |
|
C---------------------------------------- |
63 |
|
C subroutine write_local_rs |
64 |
|
C---------------------------------------- |
65 |
|
CADJ SUBROUTINE write_local_rs INPUT = 1,2,3,4,5,6,7,8,9 |
66 |
|
CADJ SUBROUTINE write_local_rs OUTPUT = |