From 002db06d157447577b596941ec2528ac7c620cdd Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 5 Feb 2019 15:54:06 +0100
Subject: [PATCH] stack_index

---
 src/irp_stack.py | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/irp_stack.py b/src/irp_stack.py
index b9cc9f9..9a90f9c 100644
--- a/src/irp_stack.py
+++ b/src/irp_stack.py
@@ -185,9 +185,9 @@ end subroutine
       s += """
  nthread = 1
  if (.not.alloc) then
-   allocate(irp_stack(0:STACKMAX,1))
-   allocate(irp_cpu(0:STACKMAX,1))
-   allocate(stack_index(2))
+   allocate(irp_stack(0:STACKMAX,0:1))
+   allocate(irp_cpu(0:STACKMAX,0:1))
+   allocate(stack_index(0:2))
    stack_index = 0
    alloc = .True.
  endif