Create bdlista.f90