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

Forgot file

Browse Source
This commit is contained in:
Anthony Scemama 2014-01-03 16:22:24 +01:00
parent b5499b8a2f
commit 3ce56dcdea
3 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
example/input/input.irp.f Normal file
View File

@ -0,0 +1,22 @@
BEGIN_PROVIDER [ integer, d1 ]
&BEGIN_PROVIDER [ integer, d2 ]
&BEGIN_PROVIDER [ integer, d3 ]
&BEGIN_PROVIDER [ integer, d4 ]
&BEGIN_PROVIDER [ integer, d5 ]
print *, 'd1'
read(*,*) d1
BEGIN_TEMPLATE
print *, '$X'
read(*,*) $X
ASSERT ( $X > $Y )
SUBST [ X, Y ]
d2; d1;;
d3; d2;;
d4; d3;;
d5; d4;;
END_TEMPLATE
END_PROVIDER

1
example/uvwt.irp.f
View File

@ -20,6 +20,7 @@ BEGIN_PROVIDER [ integer, u2 ]
integer :: fu integer :: fu
! u2 = fu(d3,d4) ! u2 = fu(d3,d4)
u2 = d3+d4+1 u2 = d3+d4+1
ASSERT (u2 > d3)
END_PROVIDER END_PROVIDER
integer function fu(x,y) integer function fu(x,y)

BIN
man/man1/irpf90.1.gz
View File

Binary file not shown.