mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-09-01 17:23:42 +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
|
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)
|
||||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user