write(*,'(24(/))')
call input(k)
call output(k)
end
Maksud dari blok program diatas adalah untuk melakukan pendeklarasian dimana dimensi variabel k sama dengan 20. Lalu digunakan juka untuk melakukan panggilan unit program input dan output pada variabel k.
