;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:                pics_wr_pbl
;
;*CATEGORY:            PMAS Instrument Control Software
;
;*PURPOSE:             write parameter block .pbl to disk
;                      pblock: string array in FITS header format
;
;*CALLING SEQUENCE:    pics_wr_pbl, err, pblock, fname 
;
;*PARAMETERS
;             input:   pblock = parameter block ( FITS header string array )
;                      fname  = file name (string)
;
;            output:   err = error message (string), '' if no error
;                            contains version string if /VERSION set
;
;          Keywords:   VERSION, prints version no. and returns version string
;
;*EXAMPLES:
;
;*SYSTEM VARIABLES USED:
;
;*COMMON BLOCKS:
;
;*INTERACTIVE INPUT:
;
;*SUBROUTINES CALLED:
;
;*FILES USED:
;
;*SIDE EFFECTS:
;
;*RESTRICTIONS:
;
;*NOTES:
;
;*PROCEDURE:
;
;*MODIFICATION HISTORY: 
pics_wr_pbl_VERSION = 'pics_wr_pbl.pro Version 1.0 --- 25/08/02 mmr'
;
;	25/08/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
;-