. <(awk     '/^ *functions */       {Func=1; next}
         Func                   {CNT=CNT+gsub(/{/,"")-gsub(/}/,""); if (CNT==1 && !/^ *$/) print "dictname[" ++dc "]="$0}
         /fields/               {for (i=3; i<NF; i++) print "fieldname[" ++fc "]="$i}
         /^ *surfaces */        {S=1; next}
         S                      {gsub(/[^0-9A-Za-z]*/, ""); if (!/^ *$/) {print "planename[" ++pc "]="$0; S=0}}
        ' file)

# Read this into the shell to set the arrays
#. /tmp/$$
# Remove temp file
#rm -f /tmp/$$

echo "0"${dictname[0]} ${planename[0]} ${fieldname[0]} 
echo "1"${dictname[1]} ${planename[1]} ${fieldname[1]} 
echo "2"${dictname[2]} ${planename[2]} ${fieldname[2]} 
echo "3"${dictname[3]} ${planename[3]} ${fieldname[3]} 
echo "4"${dictname[4]} ${planename[4]} ${fieldname[4]} 
echo "5"${dictname[5]} ${planename[5]} ${fieldname[5]} 
echo "6"${dictname[6]} ${planename[6]} ${fieldname[6]} 
echo "7"${dictname[7]} ${planename[7]} ${fieldname[7]} 
echo "8"${dictname[8]} ${planename[8]} ${fieldname[8]} 
echo "9"${dictname[9]} ${planename[9]} ${fieldname[9]} 
echo "10"${dictname[10]} ${planename[10]} ${fieldname[10]} 
echo "11"${dictname[11]} ${planename[11]} ${fieldname[11]} 
echo "12"${dictname[12]} ${planename[12]} ${fieldname[12]} 
echo "13"${dictname[13]} ${planename[13]} ${fieldname[13]}

/dev/fd/63: line 1: planeDictName1: command not found
/dev/fd/63: line 6: planeDictName2: command not found
0
1 planeName1 p
2 planeName2 U
3 T
4 p
5 U
6 p
7 U
8 p
9 U
10
11
12
13