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

  IRP_WRITE t

end