f1<-c(0.0,0.0,0.0,1.0,0.0,-1.0,-1.0,0.0,1.0,0.0,0.0,0.0,-1.0,0.0,1.0,1.0,0.0,-1.0)
dim(f1)=c(3,3,2)
f2<-c(0.0,0.0,0.0,0.0,1.0,-1.0,0.0,-1.0,1.0,0.0,0.0,0.0,0.0,-1.0,1.0,0.0,1.0,-1.0)
dim(f2)=c(3,3,2)
f3<-c(1.0,0.0,-1.0,0.0,0.0,0.0,-1.0,0.0,1.0,-1.0,0.0,1.0,0.0,0.0,0.0,1.0,0.0,-1.0)
dim(f3)=c(3,3,2)
f4<-c(0.0,1.0,-1.0,0.0,0.0,0.0,0.0,-1.0,1.0,0.0,-1.0,1.0,0.0,0.0,0.0,0.0,1.0,-1.0)
dim(f4)=c(3,3,2)
f5<-c(0.0,0.0,0.0,1.0,-1.0,0.0,-1.0,1.0,0.0,0.0,0.0,0.0,-1.0,1.0,0.0,1.0,-1.0,0.0)
dim(f5)=c(3,3,2)
f6<-c(1.0,-1.0,0.0,0.0,0.0,0.0,-1.0,1.0,0.0,-1.0,1.0,0.0,0.0,0.0,0.0,1.0,-1.0,0.0)
dim(f6)=c(3,3,2)
f7<-c(1.0,-1.0,0.0,-1.0,1.0,0.0,0.0,0.0,0.0,-1.0,1.0,0.0,1.0,-1.0,0.0,0.0,0.0,0.0)
dim(f7)=c(3,3,2)
f8<-c(1.0,0.0,-1.0,-1.0,0.0,1.0,0.0,0.0,0.0,-1.0,0.0,1.0,1.0,0.0,-1.0,0.0,0.0,0.0)
dim(f8)=c(3,3,2)
f9<-c(0.0,1.0,-1.0,0.0,-1.0,1.0,0.0,0.0,0.0,0.0,-1.0,1.0,0.0,1.0,-1.0,0.0,0.0,0.0)
dim(f9)=c(3,3,2)
f10<-c(0.0,1.0,-1.0,-1.0,0.0,1.0,1.0,-1.0,0.0,0.0,-1.0,1.0,1.0,0.0,-1.0,-1.0,1.0,0.0)
dim(f10)=c(3,3,2)
f11<-c(1.0,0.0,-1.0,0.0,-1.0,1.0,-1.0,1.0,0.0,-1.0,0.0,1.0,0.0,1.0,-1.0,1.0,-1.0,0.0)
dim(f11)=c(3,3,2)
f12<-c(-1.0,1.0,0.0,1.0,0.0,-1.0,0.0,-1.0,1.0,1.0,-1.0,0.0,-1.0,0.0,1.0,0.0,1.0,-1.0)
dim(f12)=c(3,3,2)
f13<-c(1.0,-1.0,0.0,0.0,1.0,-1.0,-1.0,0.0,1.0,-1.0,1.0,0.0,0.0,-1.0,1.0,1.0,0.0,-1.0)
dim(f13)=c(3,3,2)
f14<-c(1.0,0.0,-1.0,-1.0,1.0,0.0,0.0,-1.0,1.0,-1.0,0.0,1.0,1.0,-1.0,0.0,0.0,1.0,-1.0)
dim(f14)=c(3,3,2)
f15<-c(0.0,1.0,-1.0,1.0,-1.0,0.0,-1.0,0.0,1.0,0.0,-1.0,1.0,-1.0,1.0,0.0,1.0,0.0,-1.0)
dim(f15)=c(3,3,2)

F=list(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15)