Fix mcsolve f90