;***********************************************************************
;
PRO RDPKR, FILE, PKR, ALT, LABEL, NALT, NEMIS
;
;***********************************************************************
;
; This program reads the volume emission rates data file (root.PKR). It 
; was copied from a routine faxed by Robin Cox, CPI, on 28 June 1989.
; Modified 2 October 1990 by D P Steele: associated variables eliminated 
; from I/O since Version 2.0 of IDL disallows multiple associated 
; variables with different structures on a single file (I think).
;
OPENR, 1, FILE
A = FLTARR(50)
B = BYTARR(10,20)
READU, 1, A
NALT = A( 0)
READU, 1, A
ALT = A( 0:NALT-1)
INDEX_ALT = WHERE( ALT)
READU, 1, A
NEMIS = A( 0)
PKR = FLTARR( NALT, NEMIS)
LABEL = STRARR( NEMIS)
FOR I = 0, NEMIS - 1 DO BEGIN
    READU, 1, B
    LABEL( I) = STRING( B( *, 0))
    READU, 1, A
    PKR( *, I) = A( INDEX_ALT)
ENDFOR
;
CLOSE, 1
RETURN
END