1 |
jmc |
1.1 |
!======================================================================= |
2 |
|
|
subroutine mitcplr_real2char( rarg, carg ) |
3 |
|
|
implicit none |
4 |
|
|
! Predefined constants/arrays |
5 |
|
|
#include "CPLR_SIG.h" |
6 |
|
|
! Arguments |
7 |
|
|
character*(MAXLEN_COMP_NAME) carg |
8 |
|
|
real*4 rarg(MAXLEN_COMP_NAME) |
9 |
|
|
! Local |
10 |
|
|
integer j |
11 |
|
|
! ------------------------------------------------------------------ |
12 |
|
|
|
13 |
|
|
! Convert the integer array to characters |
14 |
|
|
do j=1,MAXLEN_COMP_NAME |
15 |
|
|
carg(j:j) = char( int( 0.5+rarg(j) ) ) |
16 |
|
|
enddo |
17 |
|
|
|
18 |
|
|
! ------------------------------------------------------------------ |
19 |
|
|
return |
20 |
|
|
end |
21 |
|
|
!======================================================================= |