1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
C---------------------------------------- |
C---------------------------------------- |
5 |
C subroutine thsice_read_pickup |
C subroutine thsice_read_pickup |
6 |
C---------------------------------------- |
C---------------------------------------- |
7 |
CADJ SUBROUTINE thsice_read_pickup INPUT = 1,2,3 |
CADJ SUBROUTINE thsice_read_pickup INPUT = 1,2,3 |
8 |
CADJ SUBROUTINE thsice_read_pickup OUTPUT = |
CADJ SUBROUTINE thsice_read_pickup OUTPUT = |
9 |
|
|
10 |
C---------------------------------------- |
C---------------------------------------- |
11 |
C subroutine THSICE_DIAG_SUFX |
C subroutine THSICE_DIAG_SUFX |
12 |
C---------------------------------------- |
C---------------------------------------- |
13 |
CADJ SUBROUTINE THSICE_DIAG_SUFX INPUT = 1,2 |
CADJ SUBROUTINE THSICE_DIAG_SUFX INPUT = 1,2 |
14 |
CADJ SUBROUTINE THSICE_DIAG_SUFX OUTPUT = 1 |
CADJ SUBROUTINE THSICE_DIAG_SUFX OUTPUT = 1 |