;--------------------------------------
;
;---------------------------------------

pro mex_h_dens_restr_INIT,  LIN = LIN, LOG = LOG, COLOR = color, PSYM = psym 

common GraphC, graph, GraphN, Item

names = ['Poor', 'Satisfactory', 'Good', 'Excellent']

Graph[GraphN].names = PTR_NEW(/ALLOCATE_HEAP)
*(graph[GraphN].names) =  names;
graph[GraphN].Type = 'FGM_T' 
graph[GraphN].DataN = 1
graph[GraphN].SetCommonF[0] = 'vexmex_dens_com, "mex", "h"' 

graph[GraphN].GetDataF[0] = 'get_vexmex_dens, "mex", "h", /RESTRICTED' 

graph[GraphN].DeltaT = (Graph[GraphN].TotalTime + 60.0D0) <  36100.0D0
graph[GraphN].Ly.title = 'MEX ima-H N, cm!U-3'
graph[GraphN].AxisF =  KEYWORD_SET(LIN) ?  'lineaxis, 0' : 'logaxis'
graph[GraphN].PlotF = 'PlotImaDens'
return
end