c @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
C       vario.f--a variety of input and output statements
        real*4 s
        real*8 d
        integer i
        character*8 c
1       format(f10.3,d10.3,i10,a10)
        write(6,1) s, d, i, c
        write(6,*) s, d, i, c
        end