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

/*****************************************************
 * misc1/fmtlib/chval.f
 ****************************************************/
/* 
 *      SUBROUTINE CHVAL(CFMT,VAL,CVAL)
 *      CHARACTER CFMT*(*),CVAL*(*)
 */
      SUBROUTINE CHVAL(
          CHARACTER*(*) CFMT
          REAL VAL
          CHARACTER*(*) o CVAL
      )