IntToChar.f90

Go to the documentation of this file.

!==============================================================================
!
!  Name   :  IntToChar
!
!  Purpose:  Converts the  Integer value  intvalue to the character string 
!            charvar of predefined length ndigits.
!            If the INTEGER has less <ndigits digits, leading zeros are stored.
!
!  Remarks:  contains the SUBROUTINE
!
!            IntToChar (<PrepareMyOutput<TreeMigSlaveWork<...)
!
!==============================================================================
! design          : H. Lischke, N. Zimmermann
! author(s)       : H. Lischke, N. Zimmermann
! implementation  : H. Lischke, N. Zimmermann
! cleaner         : T.J. Loeffler
! copyright       : (c) 1999, 03 by H. Lischke
!==============================================================================
!===================================================================== 
!===============================================================
 
SUBROUTINE inttochar(ndigits,intvalue,charvar)
    use loggermodule, only: logerror, logmessage
    IMPLICIT NONE
 
    INTEGER, INTENT(in):: ndigits, intvalue
    character, INTENT(out):: charvar(ndigits)
    INTEGER:: idigit,digit,intval,digval,tenpower
    character(1):: digchar
    intval=intvalue
    do idigit = ndigits, 1, -1 
        tenpower = 10**(idigit-1)
        digit = int(intval/tenpower) 
        if (digit>9) then
            write (logmessage, *) 'Too large number ',intvalue,' for this character array of length ', ndigits
            call logerror(logmessage)
            error stop
        end if
        digval = digit*tenpower
        intval = intval-digval 
        digchar= char(48+digit)
        charvar(ndigits-idigit+1) = digchar
    end do
end SUBROUTINE inttochar