program binaryexample

                 real*8 x

                 x=198.0

                 open(unit=10,file="integer.bin",form="unformatted")
                 open(unit=11,file="real.bin",form="unformatted")

                 write(10) idint(x)
                 write(11) x

                 close(10)
                 close(11)

endprogram