;+
; NAME:
;	COLRATRD
;
; PURPOSE:
;	This procedure reads collisional data from file and places them 
;	in col(i,j,k). Only necessary if there are fixed transitions other 
;	than collisions (nrfix ne 0).
;
; CATEGORY:
;	Multi
;
; CALLING SEQUENCE:
;
;	COLRATRD, File
;
; INPUTS:
;	FILE:	File containing collisional data
;               Default file name is DUMC if def_ext='none', else
;               dumc.def_ext
;
; OUTPUTS:
;	in common block:
;	col(i,j,k)	collisional rate coefficient
;
; MODIFICATION HISTORY:
; 	Written by:	Mats Carlsson
;-
pro colratrd,file

@common_multi

if n_params(0) eq 0 then begin
  if(def_ext eq 'none') then file='DUMC' else file='dumc.'+def_ext
endif

openr,lur,file,/get_lun
dum=assoc(lur,fltarr(nk,nk,ndep))
col=dum(0)
free_lun,lur

return
end