1 |
!======================================================================= |
2 |
subroutine mitcplr_char2int( carg, iarg ) |
3 |
implicit none |
4 |
! Predefined constants/arrays |
5 |
#include "CPLR_SIG.h" |
6 |
! Arguments |
7 |
character*(*) carg |
8 |
integer iarg(MAXLEN_COMP_NAME) |
9 |
! Local |
10 |
integer j |
11 |
character*(MAXLEN_COMP_NAME) cbuftmp |
12 |
! ------------------------------------------------------------------ |
13 |
|
14 |
! Copy carg into a fixed length character array |
15 |
cbuftmp = carg |
16 |
|
17 |
! Convert the character array to integers |
18 |
do j=1,MAXLEN_COMP_NAME |
19 |
iarg(j)=ichar( cbuftmp(j:j) ) |
20 |
enddo |
21 |
|
22 |
! ------------------------------------------------------------------ |
23 |
return |
24 |
end |
25 |
!======================================================================= |