;-----------------GTLN_INIT--------------------------
; 
pro lep_g_0_INIT, LIN = LIN, LOG = LOG,  RED = RED, BLUE = BLUE, GREEN = GREEN

common GraphC, graph, GraphN, Item
 
 pen = 0

 if KEYWORD_SET(RED) then pen = 3
 if KEYWORD_SET(BLUE) then pen = 1  
 if KEYWORD_SET(GREEN) then pen = 2   
 
graph[GraphN].Type = 'HIAM_T' 
graph[GraphN].DataN = 1
graph[GraphN].SetCommonF[0] = 'gtlcom' 
graph[GraphN].GetDataF[0] ='getgtl' 
graph[GraphN].DeltaT = (Graph[GraphN].TotalTime+30.0D0) <  18000.0D0
graph[GraphN].Ly.title = 'GTL !C N, cm!U-3'
graph[GraphN].AxisF =  KEYWORD_SET(LIN) ?  'lineaxis,0' : 'logaxis'
graph[GraphN].PlotF = 'plotscal, 3,'+ string(pen)
graph[GraphN].LastPlotF = 'nodatalast'
return
end
;------------------------------------------------------------