TALK=T;RUN(1,1)
  Copy ESTER PIL variables into IG/RG arrays
IG(1)=IZ1;IG(2)=IZ2;IG(3)=NIH;IG(4)=IHF;IG(5)=MAGF
IG(6)=IZ3;IG(9)=IFRZ;IG(10)=IANO;IG(11)=HANO;IG(12)=HUMP
IG(13)=IZ0;IG(14)=IMAGU;IG(15)=IMAGF
 
RG(1)=RHOMET;RG(2)=RHOELC;RG(3)=RHOANO
RG(4)=CONMET;RG(5)=CONELC;RG(6)=CONANO
RG(7)=AGRAVZ;RG(8)=GMDOT;RG(9)=JZCATH
RG(11)=SLOH;RG(12)=FDH;RG(13)=FHLIM;RG(14)=FRCON
RG(16)=GDZ1;RG(17)=GDZ2
RG(18)=ENUMET;RG(19)=ENUELC
RG(15)=RELF;RG(22)=ANOPOT
RG(20)=RHOFRZ;RG(21)=CONFRZ
RG(23)=RHOAIR;RG(24)=CONAIR;RG(25)=GPCOEF
RG(26)=CONST1;RG(27)=CONST2;RG(28)=CONST3
RG(29)=CONFAC;RG(30)=BEMF
RG(31)=CONCAT;RG(32)=RHOCAT
RG(33)=RHOCOL;RG(34)=CONCOL
RG(35)=RHOROD;RG(36)=CONROD
RG(37)=RHOBUS;RG(38)=CONBUS 
RG(71)=RHOSTB;RG(72)=CONSTB
RG(73)=RHOCOP;RG(74)=CONCOP
RG(75)=RHCST1;RG(76)=CNCST1
RG(77)=RHCST2;RG(78)=CNCST2
RG(40)=AA0;RG(41)=AA1;RG(42)=AA2;RG(43)=AA3
RG(44)=AA4;RG(45)=AA5;RG(46)=AA6;RG(47)=AA7
RG(50)=BB0;RG(51)=BB1;RG(52)=BB2;RG(53)=BB3
RG(54)=BB4;RG(55)=BB5;RG(56)=BB6;RG(57)=BB7
RG(60)=CC0;RG(61)=CC1;RG(62)=CC2;RG(63)=CC3
RG(64)=CC4;RG(65)=CC5;RG(66)=CC6;RG(67)=CC7

spedat(del,ester,magf)
if(ig(5).gt.0) then
+ spedat(set,ester,magf,c,:magnam:)
endif
spedat(del,ester,jzcath)
if(rg(9).gt.0) then
+ spedat(set,ester,jzcath,c,:curnam:)
endif
spedat(del,ester,hano)
if(ig(11).gt.0) then
+ spedat(set,ester,hano,c,:hannam:)
endif
spedat(del,ester,hump)
if(ig(12).gt.0) then
+ spedat(set,ester,hump,c,:intnam:)
endif
STOP