Update fold2Bloch.f90