mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-09-01 09:13:40 +02:00
Forgot file
This commit is contained in:
parent
b5499b8a2f
commit
3ce56dcdea
22
example/input/input.irp.f
Normal file
22
example/input/input.irp.f
Normal 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
|
||||
|
@ -20,6 +20,7 @@ BEGIN_PROVIDER [ integer, u2 ]
|
||||
integer :: fu
|
||||
! u2 = fu(d3,d4)
|
||||
u2 = d3+d4+1
|
||||
ASSERT (u2 > d3)
|
||||
END_PROVIDER
|
||||
|
||||
integer function fu(x,y)
|
||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user