! взаємодія з користувачем в image 1; виконання всіх інших проходить без переривання. if (this_image() == 1) then write(*,'(a)',advance='no') 'enter your name: ' read(*,'(a)') name end if ! розсилання інформації в змінній name з image 1 всім іншим відображенням call co_broadcast(name,source_image=1)