subroutine tecHeader
    implicit none
    write(6,"('TITLE=""',A,'""')")'diffusion'
    write(6,*)'VARIABLES = "X", "f"'
end subroutine tecHeader

subroutine tecWriter(n,t,x,phi)
    implicit none
    real(kind=8),dimension(0:),intent(in)::x,phi
	real(kind=8),intent(in)::t
	integer,intent(in)::n
	integer::i,nZone=0
    nZone=nZone+1
    write(6,"('TEXT X=',F10.3,' , Y=',F10.3,' , CS=FRAME , HU=FRAME , AN=CENTER , &
                  &H=2.5',' , T=""Time = ',F12.2,' Sec."" , ZN=',i5)")50.,90.,t,nZone
     
	write(6,"('ZONE  i=',i4, ' , DATAPACKING=BLOCK ')")n+1
	write(6,"(8E16.8)") (  x(i),i=0,n)
	write(6,"(8E16.8)") (phi(i),i=0,n)
end subroutine tecWriter