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