*---------------------------------------------------------------------*
*  Include File fieldt.inc                                            *
*                                                                     *
*  created 12/12/98 R.Schicker
*---------------------------------------------------------------------*
*                                                                     *
*   nfz   =   number of steps in z-direction 
*   nfr   =   number of steps in rho-direction 
*   nfp   =   number of steps in phi-direction 
*   zflmin  =   minimum value of z-coordinate
*   zflmax  =   maximum value of z-coordinate
*   zfldel  =   step value of z-coordinate
*   rflmin  =   minimum value of rho-coordinate
*   rflmax  =   maximum value of rho-coordinate
*   rfldel  =   step value of rho-coordinate
*   pflmin  =   minimum value of phi-coordinate
*   pflmax  =   maximum value of phi-coordinate
*   pfldel  =   step value of phi-coordinate
*
*
***********************************************************************
       
	integer nfz,nfr,nfp
	parameter(nfz=161,nfr=176,nfp=25)
	real zflmin,zflmax,zfldel,rflmin,rflmax,rfldel,pflmin,pflmax,
     1  pfldel
	real tzfl(nfz,nfr,nfp),trfl(nfz,nfr,nfp),tpfl(nfz,nfr,nfp)

	common/fltosca/tzfl,trfl,tpfl,zflmin,zflmax,zfldel,rflmin,
     1	rflmax,rfldel,pflmin,pflmax,pfldel