!  GETLAT      SUBROUTINE  LATTICE     CESR.LAT    SBP         90.05.00
!tpl  Call getlat(latticename) !read lattice name  from database
! character*40 latticename
subroutine getlat(lat)

implicit none
integer(4) leng
character(*) lat
character*(40) latnam
call vstget( 'CSR LATTICE ' ,1,1,latnam,leng)
call str_upcase(lat,latnam(1:min(40,leng))) !
return
end