Previous: utici Up: ../plot79_u.html Next: uticrc

UTICR

       SUBROUTINE  UTICR (FIELD,NUMBER,UPPER,LENGTH)
 C$    (Code Integer In Roman Numeral Form)
 C$    This subroutine converts an integer value to Roman numeral
 C$    form.  The arguments are
 C$
 C$    FIELD(*)........Array to  contain  the characters (1/word).
 C$                    If not large enough, the leading  character
 C$                    will be a *.   The result is  left-adjusted
 C$                    in  FIELD(*)  with  blank  padding  on  the
 C$                    right, since  this  is the  form  in  which
 C$                    Roman numerals are usually desired.
 C$    NUMBER..........INTEGER value to be converted.
 C$    UPPER........... .TRUE. - Return upper-case Roman numerals.
 C$                    .FALSE. - Return lower-case Roman numerals.
 C$    LENGTH..........Length of FIELD(*).
 C$
 C$    The algorithm is adapted  from D.E. Knuth,  TEX - A  System
 C$    for Writing  Technical  Text,  extracted  from  the  Pascal
 C$    source code.
 C$    (02-FEB-82)