Fixed OCaml

This commit is contained in:
Anthony Scemama 2017-07-18 15:07:23 +02:00
parent 7bb54e2a43
commit a5d16ebe29
2 changed files with 0 additions and 4 deletions

View File

@ -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 =

View File

@ -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)