test_SoftExit Function

public function test_SoftExit()

Arguments

None

Return Value logical

Source Code

logical function test_SoftExit()

    logical :: tdummy1, tdummy2

    tSoftExitFound = .false.
    call ChangeVars(tdummy1, tdummy2)
    if (tSoftExitFound) write (stdout,'(1X,a30)') 'Request for SOFTEXIT detected.'
    test_SoftExit = tSoftExitFound
    tSoftExitFound = .false.

end function test_SoftExit