implicit none

 integer :: aa(4)
 real(8) :: bb(4)

 aa(1)=1; aa(2)=10; aa(3)=100; aa(4)=1000
 bb(1)=1.d0; bb(2)=1.d1; bb(3)=1.d2; bb(4)=1.d3

 print '(4i5)',aa
 write(*,'(4i5)'),aa
 write(*,10)aa
 10 format(4i5)
 print '(4i3)',aa
 print '(a,i1,a,i2,a,i3)',' one:',aa(1),' ten:',aa(2),' hundred:',aa(3)
 print '(4f12.6)',bb


 end