/*
 * misc1_misclib.fp
 *
 * $Id: misc1_misclib.fp,v 1.1 2000/11/19 16:00:18 keiko Exp $
 */

/*****************************************************
 * misc1/misclib/cns.f
 ****************************************************/
/* 
 *      CHARACTER*1 FUNCTION CNS(INS)
 */
      CHARACTER*1 FUNCTION CNS(
          INTEGER INS
      )

/*****************************************************
 * misc1/misclib/cdblk.f
 ****************************************************/
/* 
 *      SUBROUTINE CDBLK(CHR)
 *      CHARACTER CHR*(*)
 */
      SUBROUTINE CDBLK(
          CHARACTER*(*) io CHR
      )