NREGT=2
IREGT=1; GRDPWR(T, number,extent,power) 

NREGX=2
IREGX=1; GRDPWR(X, number,extent,power) 

NREGY=2 
IREGY=1; GRDPWR(Y, number,extent,power) 

NREGZ=2 
IREGZ=1; GRDPWR(Z, number,extent,power) 