pkg/compon_communic/mitcplr_dbl2char.F

f137249679 Jean*0001 !=======================================================================
                0002       subroutine mitcplr_dbl2char( rarg, carg )
                0003       implicit none
                0004 ! Predefined constants/arrays
                0005 #include "CPLR_SIG.h"
                0006 ! Arguments
                0007       character*(MAXLEN_COMP_NAME) carg
                0008       real*8 rarg(MAXLEN_COMP_NAME)
                0009 ! Local
                0010       integer j
                0011 !     ------------------------------------------------------------------
                0012
                0013 ! Convert the integer array to characters
                0014       do j=1,MAXLEN_COMP_NAME
                0015        carg(j:j) = char( nint( rarg(j) ) )
                0016       enddo
                0017
                0018 !     ------------------------------------------------------------------
                0019       return
                0020       end
                0021 !=======================================================================