PRO PutHMS, hmsP

;+
; NAME:
;	Put hours/minutes/seconds flag
; PURPOSE:
;	Sets the hms flag to 0 or 1
; CALLING SEQUENCE:
;	PutHMS, flag
; INPUT:
;	flag: 1 or 0
; SIDE EFFECT:
;	Uses common block "BothDisplays"
; MODIFICATION HISTORY:
;	Craeted: Apr 91 A. Csillaghy, ETHZ
;-

  COMMON BothDisplays, hms, d1, d2, d3

  hms = hmsP

END ;  PutHMS