PRO *** ,err   ,VERSION=varversion

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:                  .
;
;*CATEGORY:              PMAS Instrument Control Software
;
;*PURPOSE:               .
;
;*CALLING SEQUENCE:      .
;
;*PARAMETERS
;             input:     .
;
;            output:     .  
;
;          Keywords:     .
;
;*EXAMPLES:              .
;
;*SYSTEM VARIABLES USED: .
;
;*COMMON BLOCKS:         .
;
;*INTERACTIVE INPUT:     .
;
;*SUBROUTINES CALLED:    .
;
;*FILES USED:            .
;
;*SIDE EFFECTS:
;
;*RESTRICTIONS:
;
;*NOTES:
;
;*PROCEDURE:
;
;*MODIFICATION HISTORY: 
***_VERSION = '***.pro Version 1.0 --- 00/00/02 mmr'
;
;	00/00/02	MMR	initial programming
;          
;*AUTHORS:
;
;	MMR		Martin M. Roth	Astrophysikalisches Institut Potsdam
;					An der Sternwarte 16
;					D-14547 Potsdam  
;					Tel. +49 - 331 - 7499 313
;                                       email: mmroth@aip.de
;-



On_error,2

if N_params() LT 1 then begin    ;Enough parameters supplied?
  print,'--------------------------------------------------------------------------'
  print,***_VERSION
  print,'CALLING SEQUENCE:   ', $
         '***, err  [,] [,]'
  print,'                                      [,/VERSION] [,/] [,/]'
  print,'--------------------------------------------------------------------------'
  RETURN
ENDIF


; IF (n_elements( varkeyword ) EQ 0) THEN varkeyword=0   <---- modify here !
IF (n_elements( varversion ) EQ 0) THEN varversion=0

IF varversion THEN BEGIN
   print,***_VERSION
   err = ***_VERSION
   RETURN
   ENDIF


RETURN

end