subroutine writeinfo2(lat)

    use bmad
    use ramp_parameters
    implicit none

    type (lat_struct) lat
    integer i, lun

    lun = lunget()
    open(unit=lun, file=trim(directory)//"/twissparam2.dat")
    write(lun,'(a,es12.4)')'horizontal tune = ',lat%a%tune/twopi
    write(lun,'(a,es12.4)')'vertical tune = ',lat%b%tune/twopi
    do i=1,lat%n_ele_track
     write(lun,'(i5, 6es14.6)')i, lat%ele(i)%s, lat%ele(i)%a%beta, lat%ele(i)%a%phi, lat%ele(i)%x%eta, lat%ele(i)%b%beta, lat%ele(i)%b%phi
    end do
    close(unit=lun)

 return
end