c----------------------------------------------------------------------------- c Program: R T O O C T c c Purpose: Displays real input in octal form c c Author: Jan H. Belgraver c c Date: 5-Jul-90 c c Modfied by: c Name Date Ident. Version c . c----------------------------------------------------------------------------- Program R T O O C T real*8 input integer*2 output(4) equivalence (input, output(1)) 10 Call Zero (output,8) write (5,100) 100 format (/'$Enter real value', t19, ': ') read (5,101, end=999) input 101 format (g19.6) write (5,102) output 102 format (/' Octal values', t19, '= ', 4(o8) ) goto 10 999 stop end