pro multips,a0=a0,a1=a1,a2=a2,a3=a3,h0=h0,h1=h1,h2=h2,h3=h3,ps=ps

IF NOT KEYWORD_SET(ps_name) THEN ps_name='multips.ps'

!P.MULTI =[4,2,2,0,0]

csz = 16
ic = 2

clabel = [1,1,1,1,1,1,1,1,1,1]

 IF KEYWORD_SET(ps) THEN BEGIN
   a4 = { x:21.0, y:29.7 }
   xcm = 18.0
   ycm = 18.0
   xoff = a4.x/2.0 - xcm/2.0 + 1.0
   yoff = a4.y/2.0 - ycm/2.0
;   xoff = a4.x/2.0 - ycm/2.0 
;   yoff = a4.y - ( a4.y/2.0 - xcm/2.0 ) 
   bpp = 8

  set_plot,'PS',/INTERPOLATE
  DEVICE, BITS_PER_PIXEL = bpp
 ; DEVICE,/LANDSCAPE
  DEVICE,/PORTRAIT
  DEVICE, XSIZE = xcm, YSIZE = ycm
  DEVICE, XOFFSET = xoff, YOFFSET = yoff
  DEVICE,FILENAME=ps_name
  DEVICE,FONT_SIZE=8
 ENDIF

 IF KEYWORD_SET(a0) THEN BEGIN
  title = SXPAR(h0,'DATE-OBS')+' '+STRMID(SXPAR(h0,'TIME-OBS'),0,5)+' EXPT=  0s'
  clevel = [349,350,351,352,353,354,355,356,357,358]	; exptime=  0
  IMG_CONT,a0,ic,title,clevel,clabel,csz,min(a0),max(a0),/noerase
 ENDIF

 IF KEYWORD_SET(a1) THEN BEGIN
  title = SXPAR(h1,'DATE-OBS')+' '+STRMID(SXPAR(h1,'TIME-OBS'),0,5)+' EXPT= 10s'
  clevel = [351,352,353,354,355,356,357,358,359,360]	; exptime= 10
  IMG_CONT,a1,ic,title,clevel,clabel,csz,min(a0),max(a0),/noerase
 ENDIF

 IF KEYWORD_SET(a2) THEN BEGIN
  title = SXPAR(h2,'DATE-OBS')+' '+STRMID(SXPAR(h2,'TIME-OBS'),0,5)+' EXPT= 60s'
  clevel = [360,361,362,363,364,365,366,367,368,369]	; exptime= 60
  IMG_CONT,a2,ic,title,clevel,clabel,csz,min(a0),max(a0),/noerase
 ENDIF

 IF KEYWORD_SET(a3) THEN BEGIN
  title = SXPAR(h3,'DATE-OBS')+' '+STRMID(SXPAR(h3,'TIME-OBS'),0,5)+' EXPT=300s'
  clevel = [300,301,302,303,400,405,410,415,420,425]	; exptime=300
  IMG_CONT,a3,ic,title,clevel,clabel,csz,min(a0),max(a0),/noerase
 ENDIF

IF KEYWORD_SET(ps) THEN BEGIN
 device,/close
 set_plot,'x'
ENDIF

return
end