C                                                                               
C*************** TOP OF COMMON BLOCK - COLLOC **************************        
C                                                                               
C   NAME- COLLOC                                                                
C                                                                               
C   LANGUAGE- VS FORTRAN    TYPE- COMMON BLOCK   COMPUTER- CRAY J916            
C                                                                               
C   VERSION- 1.0     DATE- 04/09/91   PROGRAMMER- CARLA A. NEIGH (SMSRC)        
C   VERSION- 2.0     DATE- 08/19/94   PROGRAMMER- SURYA JANDHYLA (SMSRC)        
C     XATOV-33       MSU AND SSU VALUES WERE CHANGED TO AMSU-A AND              
C                    AMSU-B VALUES.                                             
C   VERSION- 3.0     DATE- 10/29/97   PROGRAMMER- LEAH WILSON (HSTX)
C                    REMOVE ALL '*4' DECLARATIONS FOR USE ON CRAY.
C                                                                               
C   FUNCTION- THIS COMMON BLOCK CONTAINS VALUES OBTAINED FROM CDB               
C             USED FOR COLLOCATION.                                             
C                                                                               
C   SHARED PARAMETERS-                                                          
C     VARIABLE   TYPE   DESCRIPTION                                             
C     --------   ----   -----------                                             
C     HIRANG     REAL   HIRS SCAN LINE ANGULAR POSITION COEFFICIENTS            
C                       (RADIANS).                                              
C                                                                               
C     HIRTIM     INT    HIRS SCAN LINE TIME COEFFICIENTS                        
C                       (MILLISECONDS).                                         
C                                                                               
C     AMAANG     REAL   AMSU-A SCAN LINE ANGULAR POSITION COEFFICIENTS          
C                       (RADIANS).                                              
C                                                                               
C     AMATIM     INT    AMSU-A SCAN LINE TIME COEFFICIENTS                      
C                       (MILLISECONDS).                                         
C                                                                               
C     AMBANG     REAL   AMSU-B SCAN LINE ANGULAR POSITION COEFFICIENTS          
C                       (RADIANS).                                              
C                                                                               
C     AMBTIM     INT    AMSU-B SCAN LINE TIME COEFFICIENTS                      
C                       (MILLISECONDS).                                         
C                                                                               
C     GACANG     REAL   GAC SCAN LINE ANGULAR POSITION COEFFICIENTS             
C                       (RADIANS).                                              
C                                                                               
C     GACTIM     INT    GAC SCAN LINE TIME COEFFICIENTS                         
C                       (MICROSECONDS).                                         
C                                                                               
C     COMMENTS:                                                                 
C       ELEMENTS OF ANGULAR POSITION ARRAYS ARE AS FOLLOWS:                     
C        1 - HALF THE CROSS-TRACK SCAN ANGLE FOR THE INSTRUMENT                 
C        2 - STEP ANGLE FOR THE INSTRUMENT                                      
C        3 - ANGLE CORRECTION FOR THE INSTRUMENT                                
C                                                                               
C       ELEMENTS OF TIME COEFFICIENT ARRAYS ARE AS FOLLOWS:                     
C        1 - TIME OFFSET FROM THE START OF SCAN TO THE CENTER OF                
C            THE FIRST DWELL PERIOD                                             
C        2 - THE TIME OF ONE STEP AND DWELL                                     
C        3 - THE TOTAL TIME FOR THE SCAN AND RETRACE (SCAN-TO-SCAN TIME)        
C        4 - TIME CORRECTION FOR INSTRUMENT MISALIGNMENT                        
C                                                                               
C        HIRS, AMSU-A AND AMSU-B TIMES ARE IN MILLISECONDS, WHILE GAC           
C        TIMES ARE IN MICROSECONDS.  DUE TO THE GAC TIMES BEING MUCH            
C        SMALLER, IT WAS NECESSARY TO PUT THEM INTO MICROSECONDS IN             
C        ORDER TO BE ABLE TO REPRESENT THEM AS INTEGER NUMBERS.                 
C                                                                               
C***********************************************************************        
C                                                                               
      COMMON /COLLOC/ HIRANG, HIRTIM, AMAANG, AMATIM, AMBANG, AMBTIM,           
     1                GACANG, GACTIM                                            
C                                                                               
      REAL HIRANG(3), AMAANG(3), AMBANG(3), GACANG(3)                         
      INTEGER HIRTIM(4), AMATIM(4), AMBTIM(4), GACTIM(4)                      
C                                                                               
C*************** BOTTOM OF COMMON BLOCK - COLLOC ***********************