sol_pre_diago.ftn