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

/*****************************************************
 * misc1/chnlib/chngc.f
 ****************************************************/
/* 
 *      SUBROUTINE CHNGC(CH,CA,CB)
 *      CHARACTER CH*(*),CA*(*),CB*(*)
 */
      SUBROUTINE CHNGC(
          CHARACTER*(*) io CH
          CHARACTER*(*) CA
          CHARACTER*(*) CB
      )

/*****************************************************
 * misc1/chnlib/chngi.f
 ****************************************************/
/* 
 *      SUBROUTINE CHNGI(CH,CA,II,CFMT)
 *      CHARACTER CH*(*),CA*(*),CFMT*(*)
 */
      SUBROUTINE CHNGI(
          CHARACTER*(*) io CH
          CHARACTER*(*) CA
          INTEGER II
          CHARACTER*(*) CFMT
      )

/*****************************************************
 * misc1/chnlib/chngr.f
 ****************************************************/
/* 
 *      SUBROUTINE CHNGR(CH,CA,RR,CFMT)
 *      CHARACTER CH*(*),CA*(*),CFMT*(*)
 */
      SUBROUTINE CHNGR(
          CHARACTER*(*) io CH
          CHARACTER*(*) CA
          REAL RR
          CHARACTER*(*) CFMT
      )