pro	MYJOURNAL

;+
; NAME:
;	MYJOURNAL
;
; PURPOSE:
;	Opens a journal file named according to date & time of opening
;	(e.g. journal_061225_210233.jou for 25 Dec 2006 21:02:33)
;
; CATEGORY:
;	Journaling
;
; TODOS:
;	Check whether a journal file is already open before issuing
;	the JOURNAL command
;
; MODIFICATION HISTORY:
;	14 Mar 2001	Written by Mattia Vaccari
;
;	25 Dec 2006	Now checks whether a journal file is already open (Mattia Vaccari)
;-

if !journal ne 0 then begin $
  print,'A Journal File Is Already Open!' &$
  print,'Please Close It & Then Try Again!' &$
  print,'Returning...' &$
  return &$
endif

date=bin_date(systime(0))
date(0)=date(0)-2000
dates=string(date,format='(3i2.2,"_",3i2.2)')

jouname='journal_'+dates+'.jou'

print,'Opening journal file: ',jouname

journal,jouname

end