Create roechar.f90