program irp_example2
  print *, "Example 2"
  print *, 't = ', t

! IRP_WRITE t

end