irpf90/example/uvwt.irp.f

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
Added example and bin/irpf90. irpman needs to be written Version:1.1.14 2009-09-14 18:40:08 +02:00			`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`
TEST Version:1.2.7 2011-11-23 18:28:08 +01:00			`END_PROVIDER`
Added example and bin/irpf90. irpman needs to be written Version:1.1.14 2009-09-14 18:40:08 +02:00
			`BEGIN_PROVIDER [ integer, u1 ]`
			`integer :: fu`
Changed usr/bin/python to use/bin/env python 2014-10-16 20:45:17 +02:00			`u1 = fu(d1,d2)`
Added example and bin/irpf90. irpman needs to be written Version:1.1.14 2009-09-14 18:40:08 +02:00			`END_PROVIDER`

			`BEGIN_PROVIDER [ integer, u2 ]`
			`integer :: fu`
Changed usr/bin/python to use/bin/env python 2014-10-16 20:45:17 +02:00			`u2 = fu(d3,d4)`
Added example and bin/irpf90. irpman needs to be written Version:1.1.14 2009-09-14 18:40:08 +02:00			`END_PROVIDER`

			`integer function fu(x,y)`
			`integer :: x,y`
			`fu = x+y+1`
			`end function`