rd	1	#
		da $1
		read {t 1 ekx 2 eky 3 ekz 4 ebx 5 eby 6 ebz 7 eth 8 eg 9}
                read {wm 10 wr 11 divb 12}
                read {vxt 13 vyt 14 vzt 15 bxt 16 byt 17 bzt 18 rt 19}
                read {vxta 20 vyta 21 vzta 22 bxta 23 byta 24 bzta 25 rta 26}
                read {L1 27 L1bx 28 L1by 29 L1bz 30}
		#set lbz = lg(abs(bzra)
                set Nbzt=bzt*1.e6
pl      2  	#
		define TeX_strings 1
                #
                expand 1.5
                lweight 3
	        #
	        rd $1
                # for la
                limits t $2
                # for leb
                #limits t 0.85e-6 1.02e-6
                if ($2 == Nbzt) {limits -0.1 1.45 0.79 1.015}
                ticksize 0 0 0 0
                location $($gx1 + 2000) $($gx2 + 600) $gy1 $gy2
                box
                connect t $2
                xla t\Omega
                if ($2 == Nbzt) {yla \delta B_z (10^{-6}c_s)}
                #yla \delta B_z
                location $($gx1 - 2000) $($gx2 - 600) $gy1 $gy2
pla      2      #
                define TeX_strings 1
                #
                expand 1.5
                lweight 3
                #
                rd $1
                # for la
                limits t $2
                # for leb
                #limits t 0.85e-6 1.02e-6
                if ($2 == Nbzt) {limits -0.1 1.45 0.79 1.015}
                ticksize 0 0 0 0
                location $($gx1 + 2000) $($gx2 + 600) $gy1 $gy2
                box
                connect t $2
                location $($gx1 - 2000) $($gx2 - 600) $gy1 $gy2
                

