bucle.f90 mcd_y_mcm.f90