;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:                     pics_iblock_create
;
;*CATEGORY:                 PMAS Instrument Control INIT Block
;
;*PURPOSE:                  create and initiaze picsdb INIT Data Block
;
;*CALLING SEQUENCE:         pics_iblock_create, iblock
;
;*PARAMETERS:        in:    -none-
;                    out:   iblock     Data Base String Array in FITS Header Format
;
;*EXAMPLES:
;
;*SYSTEM VARIABLES USED:
;
;*COMMON BLOCKS:
;
;*INTERACTIVE INPUT:
;
;*SUBROUTINES CALLED:
;
;*FILES USED:
;
;*SIDE EFFECTS:
;
;*RESTRICTIONS:
;
;*NOTES:
;
;*PROCEDURE:
;
;*MODIFICATION HISTORY:
;
;	29/05/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
;-