From 7fc89d857e7538f43034107d30b1a07b835c2740 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 25 Sep 2018 15:53:23 +0200
Subject: [PATCH] Type errors

---
 plugins/Molden/print_mo.irp.f           | 4 ++--
 plugins/dress_zmq/run_dress_slave.irp.f | 5 +++--
 src/Determinants/determinants.irp.f     | 8 ++++----
 src/Determinants/zmq.irp.f              | 4 ++--
 4 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/plugins/Molden/print_mo.irp.f b/plugins/Molden/print_mo.irp.f
index 6ac51bdb..2ee38ae0 100644
--- a/plugins/Molden/print_mo.irp.f
+++ b/plugins/Molden/print_mo.irp.f
@@ -16,8 +16,8 @@ program print_mos
  call write_Mo_basis(i_unit_output)
  
 
- write(i_unit_output,*),''
- write(i_unit_output,*),''
+ write(i_unit_output,*)''
+ write(i_unit_output,*)''
  write(i_unit_output,*)'          ------------------------'
 
  close(i_unit_output)
diff --git a/plugins/dress_zmq/run_dress_slave.irp.f b/plugins/dress_zmq/run_dress_slave.irp.f
index 39e430a1..1fd414ab 100644
--- a/plugins/dress_zmq/run_dress_slave.irp.f
+++ b/plugins/dress_zmq/run_dress_slave.irp.f
@@ -148,7 +148,7 @@ subroutine run_dress_slave(thread,iproce,energy)
         end if
       end do
       call push_dress_results(zmq_socket_push, will_send, sum_f, edI_task, edI_index, &
-        breve_delta_m, 0, n_tasks)
+        breve_delta_m, task_buf, n_tasks)
     end if
     !$OMP END CRITICAL (send)
     
@@ -234,7 +234,8 @@ subroutine run_dress_slave(thread,iproce,energy)
       do i=1,N_det_generators
         if(dress_P(i) <= will_send) sum_f = sum_f + f(i)
       end do
-      call push_dress_results(zmq_socket_push, -will_send, sum_f, edI_task, edI_index, breve_delta_m, purge_task_id, 1)
+      task_buf(1) = purge_task_id
+      call push_dress_results(zmq_socket_push, -will_send, sum_f, edI_task, edI_index, breve_delta_m, task_buf, 1)
     end if
    
   !$OMP END SINGLE
diff --git a/src/Determinants/determinants.irp.f b/src/Determinants/determinants.irp.f
index 91b037ac..ab0799ab 100644
--- a/src/Determinants/determinants.irp.f
+++ b/src/Determinants/determinants.irp.f
@@ -76,7 +76,7 @@ BEGIN_PROVIDER [integer, max_degree_exc]
   enddo
 END_PROVIDER
 
-BEGIN_PROVIDER [ integer*8, psi_det_size ]
+BEGIN_PROVIDER [ integer, psi_det_size ]
   implicit none
   BEGIN_DOC
   ! Size of the psi_det/psi_coef arrays
@@ -88,9 +88,9 @@ BEGIN_PROVIDER [ integer*8, psi_det_size ]
     if (exists) then
       call ezfio_get_determinants_n_det(psi_det_size)
     else
-      psi_det_size = 1_8
+      psi_det_size = 1
     endif
-    psi_det_size = max(psi_det_size,100000_8)
+    psi_det_size = max(psi_det_size,100000)
     call write_int(6,psi_det_size,'Dimension of the psi arrays')
   endif
   IRP_IF MPI_DEBUG
@@ -100,7 +100,7 @@ BEGIN_PROVIDER [ integer*8, psi_det_size ]
   IRP_IF MPI
     include 'mpif.h'
     integer                        :: ierr
-    call MPI_BCAST( psi_det_size, 1, MPI_INTEGER8, 0, MPI_COMM_WORLD, ierr)
+    call MPI_BCAST( psi_det_size, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
     if (ierr /= MPI_SUCCESS) then
       stop 'Unable to read psi_det_size with MPI'
     endif
diff --git a/src/Determinants/zmq.irp.f b/src/Determinants/zmq.irp.f
index 0686be59..97af6210 100644
--- a/src/Determinants/zmq.irp.f
+++ b/src/Determinants/zmq.irp.f
@@ -11,8 +11,8 @@ integer function zmq_put_psi(zmq_to_qp_run_socket,worker_id)
   integer, external              :: zmq_put_N_states
   integer, external              :: zmq_put_N_det
   integer, external              :: zmq_put_psi_det_size
-  integer, external              :: zmq_put_psi_det
-  integer, external              :: zmq_put_psi_coef
+  integer*8, external            :: zmq_put_psi_det
+  integer*8, external            :: zmq_put_psi_coef
 
   zmq_put_psi = 0
   if (zmq_put_N_states(zmq_to_qp_run_socket, worker_id) == -1) then