!!!!!!!!!!!!!!!!! ! ! Formats: ! !!!!!!!!!!!!!!!!!
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | nperr |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
subroutine FinishDebugOutputFiles(nperr)
integer, intent(in) :: nperr
integer :: ferr
if (WriteDebugOutput) then
!open(unit=OutArgumentsFile, file=TRIM(DBGD)//DebugOutputFileName, status='unknown', access='append', &
! & form='formatted', iostat=ferr)
!if (ferr.ne.0) open(unit=OutArgumentsFile, file=DebugOutputFileName, status='unknown', access='append', &
! & form='formatted', iostat=ferr)
write(OutArgumentsFile,*)
if ((nperr.gt.0).and.(nperr.lt.1000)) then
write(OutArgumentsFile, 2362) nperr
else if ((nperr.ge.1000)) then
write(OutArgumentsFile, 2361) nperr
else
write(OutArgumentsFile, 2360) nperr
end if
write(OutArgumentsFile,*)
write(OutArgumentsFile,1199)
write(OutArgumentsFile,1199)
!close(OutArgumentsFile)
end if ! debug
! Close debug files
if (InArgumentsFile /= statusClosed) then
close(InArgumentsFile)
InArgumentsFile = statusClosed
OutArgumentsFile = statusClosed ! This is same is InArgumentsFile
end if
if (WINCOGFile /= statusClosed) then
close(WINCOGFile)
WINCOGFile = statusClosed
end if
if (IterationCSVFileNumber /= statusClosed) then
close(IterationCSVFileNumber)
IterationCSVFileNumber = statusClosed
end if
if (TarcogIterationsFileNumber /= statusClosed) then
close(TarcogIterationsFileNumber)
TarcogIterationsFileNumber = statusClosed
end if
!!!!!!!!!!!!!!!!!!!
!!!
!!! Formats:
!!!
!!!!!!!!!!!!!!!!!!!
2360 format('TARCOG status: ', I3, ' - Normal termination.')
2361 format('TARCOG status: ', I3, ' - Warning!')
2362 format('TARCOG status: ', I3, ' - Error!')
1199 format('##### ##### ##### ##### ##### ##### ##### ##### ##### ##### #####')
end subroutine FinishDebugOutputFiles