irpf90/example/input.irp.f

 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
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, d1 ]`
			`&BEGIN_PROVIDER [ integer, d2 ]`
			`&BEGIN_PROVIDER [ integer, d3 ]`
			`&BEGIN_PROVIDER [ integer, d4 ]`
			`&BEGIN_PROVIDER [ integer, d5 ]`

Added templates 2009-12-09 20:26:09 +01:00			`print *, 'd1'`
			`read(,) d1`
Added example and bin/irpf90. irpman needs to be written Version:1.1.14 2009-09-14 18:40:08 +02:00
Added templates 2009-12-09 20:26:09 +01:00			`BEGIN_TEMPLATE`
			`print *, '$X'`
			`read(,) $X`
			`ASSERT ( $X > $Y )`

			`SUBST [ X, Y ]`
			`d2; d1;;`
			`d3; d2;;`
			`d4; d3;;`
			`d5; d4;;`
			`END_TEMPLATE`
Added example and bin/irpf90. irpman needs to be written Version:1.1.14 2009-09-14 18:40:08 +02:00			`END_PROVIDER`