0.0 0.0 0.0	: rr0m,zr0m,rpam  ! rhot[m] = min(sqrt((r-rr0m)**2+(z-zr0m)**2), rpam); tor flux phi = pi*b0*rhot**2
0.0 		  	: b0              ! Bphi[T] @ rr0m[m]
1  3  2	    : q0, qa, alq     ! q = q0 + (qa-q0)*sqrt(psin)**alq
0 		 		  : nlim            ! number of points in first wall (rlim,zlim) polygon