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

/*****************************************************
 * math1/chrlib/cladj.f
 ****************************************************/
/* 
 *      SUBROUTINE CLADJ(CHR)
 *      CHARACTER CHR*(*)
 */
      SUBROUTINE CLADJ(
          CHARACTER*(*) io CHR
      )

/*****************************************************
 * math1/chrlib/lenb.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION LENB(C)
 *      CHARACTER C*(*)
 */
      INTEGER FUNCTION LENB(
          CHARACTER*(*) C
      )

/*****************************************************
 * math1/chrlib/lenc.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION LENC(C)
 *      CHARACTER C*(*)
 */
      INTEGER FUNCTION LENC(
          CHARACTER*(*) C
      )

/*****************************************************
 * math1/chrlib/leny.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION LENY(C)
 *      CHARACTER C*(*)
 */
      INTEGER FUNCTION LENY(
          CHARACTER*(*) C
      )

/*****************************************************
 * math1/chrlib/lenz.f
 ****************************************************/
/* 
 *      INTEGER FUNCTION LENZ(C)
 *      CHARACTER C*(*)
 */
      INTEGER FUNCTION LENZ(
          CHARACTER*(*) C
      )

/*****************************************************
 * math1/chrlib/cradj.f
 ****************************************************/
/* 
 *      SUBROUTINE CRADJ(CHR)
 *      CHARACTER CHR*(*)
 */
      SUBROUTINE CRADJ(
          CHARACTER*(*) io CHR
      )

/*****************************************************
 * math1/chrlib/crvrs.f
 ****************************************************/
/* 
 *      SUBROUTINE CRVRS(CHR)
 *      CHARACTER CHR*(*)
 */
      SUBROUTINE CRVRS(
          CHARACTER*(*) io CHR
      )