PRO rdascpkr,filename,pkr,alt,label,nalt,nemis

OPENR,unit,filename,/GET_LUN

in=''
READF,unit,in
nalt=0
READF,unit,nalt
alt=FLTARR(nalt)
READF,unit,alt

READF,unit,in
nemis=0
READF,unit,nemis
label=STRARR(nemis)
READF,unit,label

READF,unit,in
READF,unit,in
pkr=FLTARR(nalt,nemis)
READF,unit,pkr

CLOSE,unit
FREE_LUN,unit

RETURN
END