COMMON/TYPDEF/KVTYPE(26)
*-----------------------------------------------------------------------
*
*   KVTYPE(I)          current default type for starting character no. I
*-----------------------------------------------------------------------