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	jmc	1.2	C $Header: $
2			C $Name: $
3
4	jmc	1.1	!=======================================================================
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			!=======================================================================