! *** generated by SAPFOR with version 2412 and build date: Apr 29 2025 22:44:14
! *** Enabled options ***:
! *** maximum shadow width is 50 percent
! *** generated by SAPFOR

!---------------------------------------------------------------------
      program spbt
	include 'header3d_bt.h'
      call btdv3()
      call sp()
      return 
      end