how to reshape an array avoiding for loops

Dear r-help,

  I have an array a1 with dimensions [1:660,1:65,1:25]
  I would like the first dimension to be the last one.
  That is I want and array [1:65,1:25,1:660]

  The only way to do this, I know, is
  
  tmp.a<-array(dim=dim(a1)[c(2,3,1)])
  for(i in 1:dim(a1)[1]) tmp.a[,,i]<-a1[i,,]
  a1<-tmp.a
  rm(tmp.a)

  
  Is it possible to avoid 'for' loop here?

  Thank you!

---
Best regards,
Wladimir                mailto:wl at eimb.ru