program test
 implicit none
 !integer::i
 real:: a(9)=(/1.,2.,3.,4.,5.,6.,7.,8.,9./),c(5),d(9),e(5)
 real:: b(9)=(/2.,3.,4.,5.,6.,7.,8.,9.,10./)
 
 c=a(1:9:2)
 d=a-b
 e=b(1:10:2)
 print*, 'c=a(1:9:2)=', c
 print*, '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
 print*,'e=b(1:10:2)=',e

  print*,"*********************************************"
  print*,'d=a-b=', d
   end