C C**************** TOP OF COMMON BLOCK - CLASIF *********************** C C NAME- CLASIF C C LANGUAGE- VS FORTRAN TYPE- COMMON BLOCK COMPUTER- CRAY J916 C C VERSION- 1.0 DATE- 09/9/91 PROGRAMMER- CARLA NEIGH (SMSRC) C VERSION- 2.0 DATE- 12/01/94 PROGRAMMER- SURYA JANDHYALA (SMSRC) C ATOVS-44 REPLACED HARD CODING WITH PARAMETER. C VERSION- 2.1 DATE- 11/01/95 PROGRAMMER- CARLA NEIGH (SMSRC) C ATOVS-239 : CORRECTED DIMENSION OF P3EGFL AND P3AVFL FROM 3 TO 2. C VERSION- 3.0 DATE- 11/13/96 PROGRAMMER- TIM GARDNER (HSTX) C VERSION- 3.1 DATE- 10/29/97 PROGRAMMER- LEAH WILSON (HSTX) C C FUNCTION- THIS COMMON BLOCK CONTAINS THE COEFFICIENT DATABASE C (CDB) VALUES USED AS INPUT IN RADIANCE CLASSIFICATION. C C VERSION 3.0- FOUR PARAMETERS WERE ADDED TO HOLD THE NUMBER OF C EIGENVECTORS AND PATHS AS WELL AS THE OLDEST DATA C DATE. C VERSION 3.1- REMOVE ALL '*4' IN DECLARATIONS FOR USE ON CRAY. ADD C ADDITION EIGENVECTOR/EIGENVALUE, MEAN RADIANCE ARRAYS. C C SHARED PARAMETERS- C VARIABLE TYPE DESCRIPTION C -------- ---- ----------- C EIGNM1 INT NUMBER OF EIGENVECTORS USED FOR THE CLEAR PATH C FOR LAND. C C EIGNM2 INT NUMBER OF EIGENVECTORS USED FOR CLOUDY PATH C FOR LAND. C C EIGNM3 INT NUMBER OF EIGENVECTORS USED FOR THE CLEAR PATH C FOR SEA. C C EIGNM4 INT NUMBER OF EIGENVECTORS USED FOR CLOUDY PATH C FOR SEA. C C EIGDAT INT OLDEST DATA THAT CAN BE USED (MMYY). C C NPATH INT NUMBER OF POSSIBLE PATHS DESIGNATIONS. C C P1EIGV REAL 3D ARRAY CONTAINING RADIANCE EIGENVECTORS C FOR PATH 1. DIMENSIONED RETPARM:NUMCHN X C RETPARM:NUMCHN X 4(UP TO 4 POSSIBLE TERRAIN C TYPES). C C P1EVAL REAL 2D ARRAY CONTAINING THE RADIANCE EIGENVALUES C FOR PATH 1. DIMENSIONED RETPARM:NUMCHN X 4. C C P1CLBN REAL 2D ARRAY (DIM 16 X 4) CONTAINING EIGENVECTOR C SUBCLASS INTERVAL BOUNDARIES FOR PATH 1. C C P1NINT INT ARRAY (DIM 4) OF NUMBER OF INTERVALS USED C FOR CLASS BOUNDARIES FOR PATH 1. C C P1CLTB INT 4D ARRAY (DIM 16 X 4 X 2 X 2) CONTAINING C LOOK-UP TABLE FOR CLASS INDICES FOR PATH 1. C C P1CHAV REAL 2D ARRAY CONTAINING AVERAGE VALUES OVER THE C DEPENDENT SAMPLE FOR PATH 1. DIMENSIONED C RETPARM:NUMCHN X 4. C C P1AVFL INT ARRAY (DIM 2) CONTAINING BIT FLAGS FOR C CHANNELS TO USE IN COMPUTING BRIGHTNESS C TEMPERATURE AVERAGE FOR PATH 1 (1 = USE, C 0 = DON'T USE)- BITS 1 - 20 OF ELEMENT 1 C OF THE ARRAY ARE ASSIGNED TO THE HIRS C CHANNELS, BITS OF ELEMENT 2 ARE ASSIGNED TO C THE OTHER SOUNDINGS INSTRUMENT CHANNELS AS C THEY APPEAR IN THE CLASSIFICATION BRIGHTNESS C TEMPERATURE VECTOR. C C P1EGFL INT 2D ARRAY (DIM 2 X 4) CONTAINING BIT FLAGS FOR C CHANNELS TO USE IN EIGENVECTOR CALCULATIONS C FOR PATH 1 (1 = USE, 0 = DON'T USE)- BITS C ARE ASSIGNED AS IN P1AVFL. C C P2EIGV REAL 2D ARRAY CONTAINING RADIANCE EIGENVECTORS FOR C PATH 2. DIMENSIONED RETPARM:NUMCHN X C RETPARM:NUMCHN X 4. C C P2EVAL REAL 2D ARRAY CONTAINING THE RADIANCE EIGENVALUES FOR C PATH 2. DIMENSIONED RETPARM:NUMCHN X 4. C C P2CLBN REAL 2D ARRAY (DIM 16 X 4) CONTAINING EIGENVECTOR C SUBCLASS INTERVAL BOUNDARIES FOR PATH 2. C C P2NINT INT ARRAY (DIM 4) OF NUMBER OF INTERVALS USED C FOR CLASS BOUNDARIES FOR PATH 2. C C P2CLTB INT 4D ARRAY (DIM 16 X 4 X 2 X 2) CONTAINING C LOOK-UP TABLE FOR CLASS INDICES FOR PATH 2. C C P2CHAV REAL 2D ARRAY CONTAINING AVERAGE VALUES OVER THE C DEPENDENT SAMPLE FOR PATH 2. DIMENSIONED C RETPARM:NUMCHN X 4. C C P2AVFL INT ARRAY (DIM 2) CONTAINING BIT FLAGS FOR C CHANNELS TO USE IN COMPUTING BRIGHTNESS C TEMPERATURE AVERAGE FOR PATH 2 (1 = USE, C 0 = DON'T USE)- BITS ARE ASSIGNED AS IN C P1AVFL. C C P2EGFL INT 2D ARRAY (DIM 2 X 4) CONTAINING BIT FLAGS FOR C CHANNELS TO USE IN EIGENVECTOR CALCULATIONS C FOR PATH 2 (1 = USE, 0 = DON'T USE)- BITS C ARE ASSIGNED AS IN P1AVFL. C C P3EIGV REAL 3D ARRAY CONTAINING RADIANCE EIGENVECTORS C FOR PATH 3. DIMENSIONED RETPARM:NUMCHN X C RETPARM:NUMCHN X 4. C C P3EVAL REAL 2D ARRAY CONTAINING THE RADIANCE EIGENVALUES FOR C PATH 3. DIMENSIONED RETPARM:NUMCHN X 4. C C P3CLBN REAL 2D ARRAY (DIM 16 X 4) CONTAINING EIGENVECTOR C SUBCLASS INTERVAL BOUNDARIES FOR PATH 3. C C P3NINT INT ARRAY (DIM 4) OF NUMBER OF INTERVALS USED C FOR CLASS BOUNDARIES FOR PATH 3. C C P3CLTB INT 4D ARRAY (DIM 16 X 4 X 2 X 2) CONTAINING C LOOK-UP TABLE FOR CLASS INDICES FOR PATH 3. C C P3CHAV REAL 2D ARRAY CONTAINING AVERAGE VALUES OVER THE C DEPENDENT SAMPLE FOR PATH 3. DIMENSIONED C RETPARM:NUMCHN X 4. C C P3AVFL INT ARRAY (DIM 2) CONTAINING BIT FLAGS FOR C CHANNELS TO USE IN COMPUTING BRIGHTNESS C TEMPERATURE AVERAGE FOR PATH 3 (1 = USE, C 0 = DON'T USE)- BITS ARE ASSIGNED AS IN C P1AVFL. C C P3EGFL INT 2D ARRAY (DIM 2 X 4) CONTAINING BIT FLAGS FOR C CHANNELS TO USE IN EIGENVECTOR CALCULATIONS C FOR PATH 3 (1 = USE, 0 = DON'T USE)- BITS C ARE ASSIGNED AS IN P1AVFL. C C NTERR INT NUMBER OF TERRAIN TYPES. C C COMMENTS- INCLUDE RETPARM SHOULD PRECEDE THE INCLUSION OF THIS C COMMON BLOCK. C C********************************************************************* C REAL P1EIGV(NUMCHN,NUMCHN,4), P2EIGV(NUMCHN,NUMCHN,4) REAL P3EIGV(NUMCHN,NUMCHN,4) REAL P1EVAL(NUMCHN,4), P2EVAL(NUMCHN,4), P3EVAL(NUMCHN,4) REAL P1CLBN(16,4), P2CLBN(16,4), P3CLBN(16,4) REAL P1CHAV(NUMCHN,4), P2CHAV(NUMCHN,4), P3CHAV(NUMCHN,4) INTEGER P1NINT(4), P2NINT(4), P3NINT(4) INTEGER P1CLTB(16,4,2,2), P2CLTB(16,4,2,2), P3CLTB(16,4,2,2) INTEGER P1AVFL(2), P2AVFL(2), P3AVFL(2) INTEGER P1EGFL(2,4), P2EGFL(2,4), P3EGFL(2,4) INTEGER EIGNM1,EIGNM2,EIGNM3,EIGNM4,EIGDAT,NPATH,NTERR COMMON /CLASIF/P1EIGV,P1CLBN,P1NINT,P1CLTB,P1CHAV,P1AVFL,P1EGFL, 1 P2EIGV,P2CLBN,P2NINT,P2CLTB,P2CHAV,P2AVFL,P2EGFL, 2 P3EIGV,P3CLBN,P3NINT,P3CLTB,P3CHAV,P3AVFL,P3EGFL, 3 P1EVAL,P2EVAL,P3EVAL,EIGNM1,EIGNM2,EIGNM3,EIGNM4, 4 EIGDAT,NPATH,NTERR C C C**************** BOTTOM OF COMMON BLOCK - CLASIF ********************