From 0db547ab4b881d12a44ce4944f74874f006e6c9a Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 18 Apr 2023 12:22:04 +0200
Subject: [PATCH] Fix RSS on mac

---
 src/utils/memory.irp.f | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/utils/memory.irp.f b/src/utils/memory.irp.f
index d5a066a1..336ac6ac 100644
--- a/src/utils/memory.irp.f
+++ b/src/utils/memory.irp.f
@@ -29,6 +29,8 @@ subroutine resident_memory(value)
   call usleep(10)
 
   value = 0.d0
+IRP_IF MACOS
+IRP_ELSE
   iunit = getUnitAndOpen('/proc/self/status','r')
   do
     read(iunit,*,err=10,end=20) key, value
@@ -39,6 +41,7 @@ subroutine resident_memory(value)
   end do
   20 continue
   close(iunit)
+IRP_ENDIF
   value = value / (1024.d0*1024.d0)
   call omp_unset_lock(file_lock)
 end function
@@ -53,6 +56,9 @@ subroutine total_memory(value)
   character*(32) :: key
   double precision, intent(out) :: value
 
+  value = 0.d0
+IRP_IF MACOS
+IRP_ELSE
   iunit = getUnitAndOpen('/proc/self/status','r')
   do
     read(iunit,*,err=10,end=20) key, value
@@ -63,6 +69,7 @@ subroutine total_memory(value)
   end do
   20 continue
   close(iunit)
+IRP_ENDIF
   value = value / (1024.d0*1024.d0)
 end function