10
0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-10-09 17:43:11 +02:00
irpf90/example/uvwt.irp.f

27 lines
390 B
Forth

BEGIN_PROVIDER [ integer, t ]
t = u1+v+4
END_PROVIDER
BEGIN_PROVIDER [integer,w]
w = d5+3
END_PROVIDER
BEGIN_PROVIDER [ integer, v ]
v = u2+w+2
END_PROVIDER
BEGIN_PROVIDER [ integer, u1 ]
integer :: fu
u1 = fu(d1,d2)
END_PROVIDER
BEGIN_PROVIDER [ integer, u2 ]
integer :: fu
u2 = fu(d3,d4)
END_PROVIDER
integer function fu(x,y)
integer :: x,y
fu = x+y+1
end function