deliangwang的个人博客分享 http://blog.sciencenet.cn/u/deliangwang

博文

多数组抽取相同下标得到新的多数组的IDL程序(原理傻瓜级)

已有 2140 次阅读 2013-1-29 22:15 |系统分类:科研笔记| 程序

Pro extract_multarr,arr_ref,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10, $
                    v11,v12,v13,v14,v15,v16,v17,v18,v19,v20, $
                    v21,v22,v23,v24,v25,v26,v27,v28,v29,v30, $
                    v31,v32,v33,v34,v35,v36,v37,v38,v39,v40, $
                    v41,v42,v43,v44,v45,v46,v47,v48,v49,v50, $
                    v51,v52,v53,v54,v55,v56,v57,v58,v59,v60, $
                    v61,v62,v63,v64,v65,v66,v67,v68,v69,v70, $
                    v71,v72,v73,v74,v75,v76,v77,v78,v79,index=index

;+
;NAME:
;     extract_multarr
;PURPOSE:
;     extract arrary fited with index
;CALLING SEQUENCE:
;
;INPUT:
;    arr_ref,v1,v2,...v25  : data
;OUTPUT:
;
;PROCESS:
;
;REVISION HISTORY:
;    Original by DL.Wang,13-Jun-2007
;-
 
     if N_params() lt 1 then begin
        print,'Syntax - SORT_MULTARR,arr_ref,v1,[v2,v3,v4,....v25,'
        return
     endif

     n=N_params()

     case n of
          0:return
          1:arr_ref=arr_ref[index]
          2:begin
            arr_ref=arr_ref[index]
            v1=v1[index]
            end
          3:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index]
            end
          4:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index]
            end
          5:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index] & v4=v4[index]
            end
          6:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index]
            v4=v4[index] & v5=v5[index]
            end
          7:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index]
            v4=v4[index] & v5=v5[index] & v6=v6[index]
            end
          8:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index]
            v4=v4[index] & v5=v5[index] & v6=v6[index]
            v7=v7[index]
            end
          9:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index]
            v4=v4[index] & v5=v5[index] & v6=v6[index]
            v7=v7[index] & v8=v8[index]
            end
         10:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index]
            v4=v4[index] & v5=v5[index] & v6=v6[index]
            v7=v7[index] & v8=v8[index] & v9=v9[index]
            end
         11:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index]
            v4=v4[index] & v5=v5[index] & v6=v6[index]
            v7=v7[index] & v8=v8[index] & v9=v9[index]
            v10=v10[index]
            end
         12:begin
            arr_ref=arr_ref[index]
            v1=v1[index] & v2=v2[index] & v3=v3[index]
            v4=v4[index] & v5=v5[index] & v6=v6[index]
            v7=v7[index] & v8=v8[index] & v9=v9[index]
            v10=v10[index] & v11=v11[index]
            end
         13:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            end
         14:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index]
            end
         15:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index]
            end
         16:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            end
         17:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index]
            end
         18:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index]
            end
         19:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            end
         20:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index]
            end
         21:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index]
            end
         22:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            end
         23:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index]
            end
         24:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index]
            end
         25:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            end
         26:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index]
            end
         27:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index]
            end
         28:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            end
         29:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index]
            end
         30:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index]
            end
         31:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            end
         32:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index]
            end
         33:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index]
            end
         34:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            end
         35:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index]
            end
         36:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index]
            end
         37:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            end
         38:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index]
            end
         39:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index]
            end
         40:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            end
         41:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index]
            end
         42:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index]
            end
         43:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            end
         44:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index]
            end
         45:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index]
            end
         46:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            end
         47:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index]
            end
         48:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index]
            end
         49:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            end
         50:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index]
            end
         51:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index]
            end
         52:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            end
         53:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index]
            end
         54:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index]
            end
         55:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            end
         56:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index]
            end
         57:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index]
            end
         58:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            end
         59:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index]
            end
         60:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index]
            end
         61:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            end
         62:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index]
            end       
         63:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index]
            end
         64:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            end
         65:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index]
            end
         66:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index]
            end
         67:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            end
         68:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index]
            end
         69:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index]
            end
         70:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            end
         71:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index]
            end
         72:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index]
            end
         73:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index] & v72=(v72)[index]
            end
         74:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index] & v72=(v72)[index]
            v73=(v73)[index]
            end
         75:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index] & v72=(v72)[index]
            v73=(v73)[index] & v74=(v74)[index]
            end
         76:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index] & v72=(v72)[index]
            v73=(v73)[index] & v74=(v74)[index] & v75=(v75)[index]
            end
         77:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index] & v72=(v72)[index]
            v73=(v73)[index] & v74=(v74)[index] & v75=(v75)[index]
            v76=(v76)[index]
            end
         78:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index] & v72=(v72)[index]
            v73=(v73)[index] & v74=(v74)[index] & v75=(v75)[index]
            v76=(v76)[index] & v77=(v77)[index]
            end
         79:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index] & v72=(v72)[index]
            v73=(v73)[index] & v74=(v74)[index] & v75=(v75)[index]
            v76=(v76)[index] & v77=(v77)[index] & v78=(v78)[index]
            end
         80:begin
            arr_ref=(arr_ref)[index]
            v1=(v1)[index] & v2=(v2)[index] & v3=(v3)[index]
            v4=(v4)[index] & v5=(v5)[index] & v6=(v6)[index]
            v7=(v7)[index] & v8=(v8)[index] & v9=(v9)[index]
            v10=(v10)[index] & v11=(v11)[index] & v12=(v12)[index]
            v13=(v13)[index] & v14=(v14)[index] & v15=(v15)[index]
            v16=(v16)[index] & v17=(v17)[index] & v18=(v18)[index]
            v19=(v19)[index] & v20=(v20)[index] & v21=(v21)[index]
            v22=(v22)[index] & v23=(v23)[index] & v24=(v24)[index]
            v25=(v25)[index] & v26=(v26)[index] & v27=(v27)[index]
            v28=(v28)[index] & v29=(v29)[index] & v30=(v30)[index]
            v31=(v31)[index] & v32=(v32)[index] & v33=(v33)[index]
            v34=(v34)[index] & v35=(v35)[index] & v36=(v36)[index]
            v37=(v37)[index] & v38=(v38)[index] & v39=(v39)[index]
            v40=(v40)[index] & v41=(v41)[index] & v42=(v42)[index]
            v43=(v43)[index] & v44=(v44)[index] & v45=(v45)[index]
            v46=(v46)[index] & v47=(v47)[index] & v48=(v48)[index]
            v49=(v49)[index] & v50=(v50)[index] & v51=(v51)[index]
            v52=(v52)[index] & v53=(v53)[index] & v54=(v54)[index]
            v55=(v55)[index] & v56=(v56)[index] & v57=(v57)[index]
            v58=(v58)[index] & v59=(v59)[index] & v60=(v60)[index]
            v61=(v61)[index] & v62=(v62)[index] & v63=(v63)[index]
            v64=(v64)[index] & v65=(v65)[index] & v66=(v66)[index]
            v67=(v67)[index] & v68=(v68)[index] & v69=(v69)[index]
            v70=(v70)[index] & v71=(v71)[index] & v72=(v72)[index]
            v73=(v73)[index] & v74=(v74)[index] & v75=(v75)[index]
            v76=(v76)[index] & v77=(v77)[index] & v78=(v78)[index]
            v79=(v79)[index]
            end

     endcase
     

End



https://blog.sciencenet.cn/blog-456360-657705.html

上一篇:借助CIAO软件计算河外X射线源的银河系中性氢柱密度的IDL程序
下一篇:赤经赤纬的字符串格式转化为双精度格式IDL程序
收藏 IP: 123.86.144.*| 热度|

0

该博文允许注册用户评论 请点击登录 评论 (0 个评论)

数据加载中...

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2024-4-27 05:38

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部