ESTEL:ESTEL-3D subroutine template

subroutine output_data_tecplot_ascii(data_array, nout) !--- ! Function: Writes one zone in the Tecplot ascii file !--- implicit none !--- ! Arguments double precision, dimension(nmxva1,nout), intent(in) :: data_array integer                               , intent(in) :: nout !--- ! Local declarations !--- integer :: ivar, j !--- if (debug) call proc_begin('output_data_tecplot') !--- ! Zone header write(unit=fil_1d,fmt=20) trim (i2char(nout) ) 20 format(1x,'ZONE T="1D (time) results", I=', a, &                                       ', DATAPACKING = BLOCK')

! Write the data to the zone do ivar = 1, nmxva1 write(unit=fil_1d,fmt=21) (data_array(ivar,j), j=1,nout) 21 format(e12.5,1x) end do !--- if (debug) call proc_end('output_data_tecplot_ascii') !--- return end subroutine output_data_tecplot_ascii