Merge lp:~nickpapior/siesta/4.0-ipi into lp:siesta/4.0

[Nick Papior]

Fixes of i-PI EXIT status.

[Alberto Garcia (albertog)]

Looks good to me.

review: Approve

=== modified file 'Src/iosockets.F90'
--- Src/iosockets.F90	2016-01-25 16:00:16 +0000
+++ Src/iosockets.F90	2018-04-13 10:46:23 +0000
@@ -146,11 +146,19 @@
     do
       if (leqi(master,'i-pi')) then
         call readbuffer(socket, header, IPI_MSGLEN)
+
+        ! Immediately stop if requested
+        if (trim(header)=='EXIT') then ! we are done!
+          call close_socket(socket)
+          call bye(myName//'STOP requested by driver')
+        end if
+        
         if (trim(header)/='STATUS') exit ! do loop
-        message = "READY"
-        call writebuffer(socket, message, IPI_MSGLEN)
+        call writebuffer(socket, "READY", IPI_MSGLEN)
       elseif (leqi(master,'fsiesta')) then
         call readbuffer(socket, header)
+
+        ! Immediately stop if requested
         if (trim(header)=='quit') then
           call writebuffer(socket,'quitting')
           call close_socket(socket)
 
=== modified file 'version.info'
--- version.info	2018-04-11 23:32:54 +0000
+++ version.info	2018-04-13 10:46:23 +0000
@@ -1,1 +1,1 @@
-siesta-4.0--563
+siesta-4.0--563--ipi-1