LCPQ/irpf90
10
0
Fork 0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-12-21 20:03:33 +01:00
Code Releases Activity

TEST

Browse Source 
Version:1.2.7
This commit is contained in:
Anthony Scemama 2011-11-23 18:28:08 +01:00
parent b7ab85315e
commit f6eb72c068
5 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
example/Makefile
View File

@ -1,4 +1,4 @@
IRPF90 = irpf90 #-a -d IRPF90 = irpf90 -a -d
FC = gfortran FC = gfortran
FCFLAGS= -O2 FCFLAGS= -O2

10
example/irp_example1.irp.f
View File

@ -1,14 +1,10 @@
program irp_example1 program irp_example1
integer :: x(w) integer :: x(W)
BEGIN_SHELL [ /bin/bash ] BEGIN_SHELL [ /bin/bash ]
echo print *, \'Compiled by `whoami` on `date`\' echo print *, \'Compiled by `whoami` on `date`\'
echo print *, \'$FC $FCFLAGS\' echo print *, \'$FC $FCFLAGS\'
echo print *, \'$IRPF90\' echo print *, \'$IRPF90\'
END_SHELL END_SHELL
call run ! print *, 't = ', t
print *, u2
end
subroutine run
print *, 't = ', t
end end

2
example/uvwt.irp.f
View File

@ -8,7 +8,7 @@ END_PROVIDER
BEGIN_PROVIDER [ integer, v ] BEGIN_PROVIDER [ integer, v ]
v = u2+w+2 v = u2+w+2
!END_PROVIDER END_PROVIDER
BEGIN_PROVIDER [ integer, u1 ] BEGIN_PROVIDER [ integer, u1 ]
integer :: fu integer :: fu

8
src/util.py
View File

@ -173,16 +173,10 @@ def parallel_loop(f,source):
w.close() w.close()
os._exit(0) os._exit(0)
OK = True
for i in xrange(1,NTHREADS):
if os.waitpid(pidlist[i],0)[1] != 0:
OK = False
if not OK:
sys.exit(1)
for i in xrange(1,NTHREADS): for i in xrange(1,NTHREADS):
result += pickle.load(r[i]) result += pickle.load(r[i])
r[i].close() r[i].close()
os.waitpid(pidlist[i],0)[1]
return result return result

2
src/version.py
View File

@ -1 +1 @@
version = "1.2.6" version = "1.2.7"