C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/compon_communic/mitcplr_char2dbl.F,v 1.1 2009/09/14 16:19:09 jmc Exp $
C $Name:  $

!=======================================================================
      subroutine mitcplr_char2dbl( carg, rarg )
      implicit none
! Predefined constants/arrays
#include "CPLR_SIG.h"
! Arguments
      character*(*) carg
      real*8 rarg(MAXLEN_COMP_NAME)
! Local
      integer j
      character*(MAXLEN_COMP_NAME) cbuftmp
!     ------------------------------------------------------------------

! Copy carg into a fixed length character array
      cbuftmp = carg

! Convert the character array to integers
      do j=1,MAXLEN_COMP_NAME
       rarg(j)= ichar( cbuftmp(j:j) )
      enddo

!     ------------------------------------------------------------------
      return
      end
!=======================================================================