2016-11-10 19:49:35 +01:00
|
|
|
BEGIN_PROVIDER [integer, t ]
|
2009-09-14 18:40:08 +02:00
|
|
|
t = u1+v+4
|
|
|
|
|
END_PROVIDER
|
|
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [integer,w]
|
|
|
|
|
w = d5+3
|
|
|
|
|
END_PROVIDER
|
|
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [ integer, v ]
|
2016-11-10 19:49:35 +01:00
|
|
|
implicit none
|
2009-09-14 18:40:08 +02:00
|
|
|
v = u2+w+2
|
2011-11-23 18:28:08 +01:00
|
|
|
END_PROVIDER
|
2009-09-14 18:40:08 +02:00
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [ integer, u1 ]
|
|
|
|
|
integer :: fu
|
2014-10-16 20:45:17 +02:00
|
|
|
u1 = fu(d1,d2)
|
2009-09-14 18:40:08 +02:00
|
|
|
END_PROVIDER
|
|
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [ integer, u2 ]
|
|
|
|
|
integer :: fu
|
2014-10-16 20:45:17 +02:00
|
|
|
u2 = fu(d3,d4)
|
2016-11-10 19:49:35 +01:00
|
|
|
!df
|
2009-09-14 18:40:08 +02:00
|
|
|
END_PROVIDER
|
|
|
|
|
|
|
|
|
|
integer function fu(x,y)
|
|
|
|
|
integer :: x,y
|
|
|
|
|
fu = x+y+1
|
|
|
|
|
end function
|
