program f2sam
        external f
        integer f       
        character*7 s
        integer b(3)
        call sam(f, b(2), s)
        write(6,10) b(2), f(real(b(2))), s
   10   format(i5,i5,10x,a7)
        stop
        end program f2sam