#pro 1pcp
# o=KY-9999; #e [n=6;] _scom  #f [file=calpcp.txt;] \P5\E  # &1=&; !
# s(3)=o;  #f [op=line; n=-1;]    #e [b=o; le=s(5);] _text  # C0=-0.506774*E*d*d/Z/KD; 		C0=Kd^2/Z  --      
# n2=n-2; J=99; J1=J+n; J2=J1+n; J3=J2+n; J4=J3+n*nv; kv=0; 
#pr data/m\I-3 ni;.dat\E  #io [op=rd; mo=1; fir=r(J3); n=n*nv; le=0; file=\Tp\E]  		    
#rep nv  #pas n r(J3+kv*n) r(J) #pas n r(J) r(J1)  # C=-1; #ma [op=vmc; b=J; le=n;]  
  # C=1; #ma [op=vac;]  #pas n r(J) r(J2)  # r(J)=0; r(J+1)=0;  #ma [op=fsd; trx=2*n; n=1;]  		 2-     
  # C=C0; #ma [op=vmc;]  #pas n r(J) r(J1)  # i=J+n2; r(i+1)=0; r(i)=0; #ma [op=fsd; n=n-1;] 		 2-      
  # C=C0; #ma [op=vmc;]  # &=nv; 
  #case 1 #pr pic/m\I-3 no;1\E  #d 7 A J n 2 1 n 247 1100 #pr \Tp|\Tp\E #e [n=1;] _scom  #end | 	 nv=1       . 1
  # k=n/2;  #pas k r(J1) r(J)  #pas n r(J) r(J4+kv*n)  # kv=kv+1; !  			   ,  -- 
#end  #pr data/m\I-3 no;.dat\E  #io [op=wd; mo=1; fir=r(J4); n=n*nv; file=\Tp\E]  # &=nv; 		    
#case 1 #pr pic/m\I-3 no;2\E  #d 7 A J4 n 1 1 n 247 1100 #pr \Tp|\Tp\E #e [n=1;] _scom  #end | ! 	  nv=1      . 2
# &=&&; 
@ 

