TEXT(Uniform Grid       
  #pause
mesg(unigrid macro has been loaded  ! prints message on screen
grdpwr(t,lstep,tlast, 1.0)          ! sets uniform time intervals 
grdpwr(x,nx   ,xulast,1.0)          ! sets uniform x intervals
grdpwr(y,ny   ,yvlast,1.0)          ! sets uniform y intervals
if(parab) then                      ! sets iniform z intervals
 parab                              !   but differently for
 zfrac(1)= -nz;zfrac(2)=1/nz        !   parabolic and non-parabolic
else                                !   cases
 grdpwr(z,nz   ,zwlast,1.0)
endif
if(cartes) then                     ! prints message on screen
 mesg(uniform cartesian grid        !   but differently for
else                                !   cartes=t and cartes=f
 mesg(uniform polar grid
endif
  end of unigrid