10
0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-10-30 10:48:15 +01:00

stack_index

This commit is contained in:
Anthony Scemama 2019-02-05 15:54:06 +01:00
parent fa84676fd0
commit 002db06d15

View File

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