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

  IRP_WRITE t

end