diff --git a/src/tc_bi_ortho/compute_deltamu_right.irp.f b/src/tc_bi_ortho/compute_deltamu_right.irp.f index 6464796e..7ca2c890 100644 --- a/src/tc_bi_ortho/compute_deltamu_right.irp.f +++ b/src/tc_bi_ortho/compute_deltamu_right.irp.f @@ -42,7 +42,7 @@ subroutine delta_right() enddo - call ezfio_set_dmc_dress_dmc_delta_h(delta) +! call ezfio_set_dmc_dress_dmc_delta_h(delta) deallocate(delta)