real(kind=8) :: buflipbot, bufliptop,bordlipbot,bordliptop, &
lipbufthick,lipthick
integer,dimension(:,:),allocatable :: tabperm !(maxperm,maxsym)
real(kind=8) :: buflipbot, bufliptop,bordlipbot,bordliptop, &
lipbufthick,lipthick
integer,dimension(:,:),allocatable :: tabperm !(maxperm,maxsym)