fopts:=proc(J::table,jt::string:="",$)
if   (J["c"]="cryst"
   or J["c"]="cryst-cx") then if (jt="dos") then 'kgrid'=["G", 5,16,5] else 'kgrid'=["G",2,8,2] end
elif (J["c"]="cryst-b" ) then if (jt="dos") then 'kgrid'=["G",12,16,2] else 'kgrid'=["G",5,7,1] end
elif (J["c"]="cryst-a" ) then if (jt="dos") then 'kgrid'=["G",16,10,4] else 'kgrid'=["G",8,4,2] end
elif (J["c"]="molec") then 'kgrid'=0,'offset'=[[0,30],[0,20],[0,15]]
end
end: