pkg/compon_communic/mitcplr_real2char.F

C $Header:  $
C $Name:  $

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

! Convert the integer array to characters
      do j=1,MAXLEN_COMP_NAME
       carg(j:j) = char( int( 0.5+rarg(j) ) )
      enddo

!     ------------------------------------------------------------------
      return
      end
!=======================================================================
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	!=======================================================================