diff --git a/ocaml/Element.ml b/ocaml/Element.ml
index 41111426..df85663f 100644
--- a/ocaml/Element.ml
+++ b/ocaml/Element.ml
@@ -10,7 +10,6 @@ type t =
 |Na|Mg                              |Al|Si|P |S |Cl|Ar
 |K |Ca|Sc|Ti|V |Cr|Mn|Fe|Co|Ni|Cu|Zn|Ga|Ge|As|Se|Br|Kr
 |Rb|Sr|Y |Zr|Nb|Mo|Tc|Ru|Rh|Pd|Ag|Cd|In|Sn|Sb|Te|I |Xe
-                              |Pt
 with sexp
 
 let of_string x = 
diff --git a/plugins/MPI/bcast.irp.f b/plugins/MPI/bcast.irp.f
index 6fe5652f..493ffc83 100644
--- a/plugins/MPI/bcast.irp.f
+++ b/plugins/MPI/bcast.irp.f
@@ -4,10 +4,7 @@ subroutine mpi_bcast_psi()
   BEGIN_DOC
 ! Broadcast the wave function coming from the qp_run scheduler
   END_DOC
-  integer(ZMQ_PTR), intent(in)   :: zmq_to_qp_run_socket
-  integer, intent(in)            :: worker_id
   integer                        :: ierr
-  character*(256)                :: msg
 
   IRP_IF MPI
     call MPI_BCast(N_states,     1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)