PROGRAM fdriver
use sam_mod
implicit none
CHARACTER*7:: s
integer, dimension(3)::b 
   CALL sam( f , b (2) , s )
   WRITE(6,100) b ( 2 ) , f (REAL(b ( 2 ) ) ) , s
   100 format(i5,i5,10x,a7)
END PROGRAM fdriver