1 |
C $Header: /u/gcmpack/MITgcm/pkg/compon_communic/mitcplr_char2real.F,v 1.2 2007/10/08 23:58:21 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
!======================================================================= |
5 |
subroutine mitcplr_char2dbl( carg, rarg ) |
6 |
implicit none |
7 |
! Predefined constants/arrays |
8 |
#include "CPLR_SIG.h" |
9 |
! Arguments |
10 |
character*(*) carg |
11 |
real*8 rarg(MAXLEN_COMP_NAME) |
12 |
! Local |
13 |
integer j |
14 |
character*(MAXLEN_COMP_NAME) cbuftmp |
15 |
! ------------------------------------------------------------------ |
16 |
|
17 |
! Copy carg into a fixed length character array |
18 |
cbuftmp = carg |
19 |
|
20 |
! Convert the character array to integers |
21 |
do j=1,MAXLEN_COMP_NAME |
22 |
rarg(j)= ichar( cbuftmp(j:j) ) |
23 |
enddo |
24 |
|
25 |
! ------------------------------------------------------------------ |
26 |
return |
27 |
end |
28 |
!======================================================================= |