LCPQ/irpf90
10
0
Fork 0
mirror of https://gitlab.com/scemama/irpf90.git synced 2025-01-03 10:05:40 +01:00
Code Releases Activity

Merge pull request #4 from scemama/master

Browse Source 
1.6.1
This commit is contained in:
Anthony Scemama 2015-04-12 01:09:57 +02:00
commit 731dbda9d1
3 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/irp_stack.py
View File

@ -57,15 +57,7 @@ subroutine irp_enter(irp_where)
"""
if not do_openmp:
txt += """
!$ integer, external :: omp_get_thread_num
!$ integer, external :: omp_get_num_threads
ithread = 0
!$ ithread = omp_get_thread_num()
if (ithread /= 0) then
print *, 'Error: Provider is called by thread', ithread
call irp_trace
stop 1
endif
"""
else:
txt += """

4
src/irpf90.py
View File

@ -100,8 +100,8 @@ def main():
import touches
touches.create()
import checkpoint
checkpoint.create()
# import checkpoint
# checkpoint.create()
import create_man
create_man.run()

2
src/version.py
View File

@ -1 +1 @@
version = "1.6.0"
version = "1.6.1"