SUBROUTINE UNP360(IN,IO,N)                                                
      SAVE
      PARAMETER (IWSZ=32)
C FOR EXECUTION ON WORD SIZE IWSZ (>=32)
C CONVERTS ARRAYS OF IBM 360/370 WORDS WHICH ARE IN A CONTINUOUS BIT            
C       STREAM INTO HOST WORDS.
C WILL ACCEPT MIXED ARRAYS OF REAL (REAL*4) AND INTEGER (INTEGER*4)             
C       AND RETURNS THE APPROPRIATE CRAY REAL OR FULL WORD INTEGER              
C       VALUES.                                                                 
C       IN = ARRAY CONTAINING 360 WORDS AS A CONTINUOUS BIT STREAM. M           
C       IO = ARRAY FOR CRAY OUTPUT WORDS.                                       
C       N  = NUMBER OF VALUES TO CONVERT.                                       
      DIMENSION IN(1),IO(1)                                                     
      IOF=0                                                                     
      DO 20 I=1,N                                                               
      CALL GBYTES(IN,IS,IOF,1,0,1)                                              
      IOF=IOF+1                                                                 
      CALL GBYTES(IN,IEX,IOF,7,0,1)                                             
      IOF=IOF+7                                                                 
      CALL GBYTES(IN,IFR,IOF,24,0,1)                                            
      IF(IEX .EQ. 0 .OR. IEX .EQ. 127) GO TO 10                                 
      XV=FLOAT(IFR)*16.**(IEX-70)                                               
      IF(IS .NE. 0) XV=-XV                                                      
      CALL SBYTES(IO(I),XV,0,IWSZ,0,1)
      GOTO 20                                                                   
   10 CONTINUE                                                                  
      IF(IS .NE. 0) IFR=IFR-16777216                                            
      IO(I)=IFR                                                                 
   20 IOF=IOF+24                                                                
      RETURN                                                                    
      END