SUBROUTINE WriteRootFinderTraceHeader( TraceFileUnit )
! SUBROUTINE INFORMATION:
! AUTHOR Dimitri Curtil (LBNL)
! DATE WRITTEN March 2006
! MODIFIED
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine writes the header for the trace file to the specified
! file unit using CSV formatting.
!
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: TraceFileUnit ! Unit for trace file
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! na
! FLOW:
WRITE(TraceFileUnit,'(20(A,A))',ADVANCE='No') &
'Status', ',', 'Method', ',', &
'CurrentPoint%X', ',', 'CurrentPoint%Y', ',', &
'XCandidate', ',', 'ConvergenceRate', ',', &
!'MinPoint%DefinedFlag', ',', &
'MinPoint%X', ',', 'MinPoint%Y', ',', &
!'LowerPoint%DefinedFlag', ',', &
'LowerPoint%X', ',', 'LowerPoint%Y', ',', &
!'UpperPoint%DefinedFlag', ',', &
'UpperPoint%X', ',', 'UpperPoint%Y', ',', &
!'MaxPoint%DefinedFlag', ',', &
'MaxPoint%X', ',', 'MaxPoint%Y', ',', &
!'History(1)%DefinedFlag', ',', &
'History(1)%X', ',', 'History(1)%Y', ',', &
!'History(2)%DefinedFlag', ',', &
'History(2)%X', ',', 'History(2)%Y', ',', &
!'History(3)%DefinedFlag', ',', &
'History(3)%X', ',', 'History(3)%Y', ','
RETURN
END SUBROUTINE WriteRootFinderTraceHeader