ESTEL:ESTEL3D subroutine template

Blah

!--- subroutine sub_example(arg1, arg2) !--- ! Function: Write one zone of data in the binary tecplot file. ! ! Note: the 1D results file is a bit particular in the sense that the ! all the data is written in one go, at the end of the simulation. ! There will only be one call to this output_data_tecplot routine. !--- implicit none !--- ! Global declarations double precision, dimension(nmxva1,nout), intent(in) :: data_array integer                               , intent(in) :: nout

!--- ! Local declarations !--- integer                        :: ok  integer                        :: ivar integer, dimension(nmxva1)    :: tab_0 integer, dimension(nmxva1)    :: tab_1 character(len=11)             :: ZoneName

!--- if (debug) call proc_begin('output_data_tecplot') !--- !--- if (debug) call proc_begin('output_data_tecplot') !--- end subroutine sub_example