TALK=T;RUN(1,1)
   Copy ESTER PIL variables from IG/RG arrays to PIL
IZ1=IG(1);IZ2=IG(2);NIH=IG(3);IHF=IG(4);MAGF=IG(5)
IZ3=IG(6);IFRZ=IG(9);IANO=IG(10);HANO=IG(11);HUMP=IG(12)
IZ0=IG(13);IMAGU=IG(14);IMAGF=IG(15)
 
RHOMET=RG(1) ;RHOELC=RG(2) ;RHOANO=RG(3) 
CONMET=RG(4) ;CONELC=RG(5) ;CONANO=RG(6) 
AGRAVZ=RG(7) ;GMDOT =RG(8) ;JZCATH=RG(9) 
SLOH  =RG(11);FDH   =RG(12);FHLIM =RG(13);FRCON=RG(14)
GDZ1  =RG(16);GDZ2  =RG(17)              
ENUMET=RG(18);ENUELC=RG(19)              
RELF  =RG(15);ANOPOT=RG(22)              
RHOFRZ=RG(20);CONFRZ=RG(21)              
RHOAIR=RG(23);CONAIR=RG(24);GPCOEF=RG(25)              
CONST1=RG(26);CONST2=RG(27);CONST3=RG(28)
CONFAC=RG(29);BEMF  =RG(30)
CONCAT=RG(31);RHOCAT=RG(32)
RHOCOL=RG(33);CONCOL=RG(34)
rhorod=rg(35);conrod=rg(36)
rhobus=rg(37);conbus=rg(38) 
rhostb=rg(71);constb=rg(72)
RHOCOP=RG(73);CONCOP=RG(74)
RHCST1=RG(75);CNCST1=RG(76)
RHCST2=RG(77);CNCST2=RG(78)

AA0=RG(40);AA1=RG(41);AA2=RG(42);AA3=RG(43)
AA4=RG(44);AA5=RG(45);AA6=RG(46);AA7=RG(47)
BB0=RG(50);BB1=RG(51);BB2=RG(52);BB3=RG(53)
BB4=RG(54);BB5=RG(55);BB6=RG(56);BB7=RG(57)
CC0=RG(60);CC1=RG(61);CC2=RG(62);CC3=RG(63)
CC4=RG(64);CC5=RG(65);CC6=RG(66);CC7=RG(67)

magnam=q1; curnam=q1; hannam=q1; intnam=q1
magnam=:cg(1):
spedat(getv,ester,magf,c,magnam)
curnam=:cg(2):
spedat(getv,ester,jzcath,c,curnam)
hannam=:cg(5):
spedat(getv,ester,hano,c,hannam)
intnam=:cg(6):
spedat(getv,ester,hump,c,intnam)
spedat(del,ester,magf)
spedat(del,ester,jzcath)
spedat(del,ester,hano)
spedat(del,ester,hump)
cg(1)=
cg(2)=
cg(5)=
cg(6)=
STOP