D.2.4 Abort Procedure

The main documentation of the Abort Procedure contains additional explanation of this code listing.

  subroutine Abort ()
  
    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  
    ! Verify requirements - none.
  
    ! Do the global abort.
  
    ifdef([USE_PGSLIB],[
  
      ! PGSLib parallel abort.
  
      call PGSLib_Abort ()
  
    ],[
  
      ! Serial abort.

      stop
  
    ])
  
    ! Verify guarantees - none.
  
    return
  end subroutine Abort