!--
! *** Caution!! ***
!
! This file is generated from "sysdepabort.rb2f90" by Ruby 1.8.5.
! Please do not edit this file directly.
!
! [JAPANESE]
!
! â€»â€»â€» æ³¨æ„!!! â€»â€»â€»
!
! ã“ã®ãƒ•ã‚¡ã‚¤ãƒ«ã¯ "sysdepabort.rb2f90" ã‹ã‚‰ Ruby 1.8.5
! ã«ã‚ˆã£ã¦è‡ªå‹•ç”Ÿæˆã•ã‚ŒãŸãƒ•ã‚¡ã‚¤ãƒ«ã§ã™.
! ã“ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ç›´æŽ¥ç·¨é›†ã—ã¾ã›ã‚“ã‚ˆã†ãŠé¡˜ã„è‡´ã—ã¾ã™.
!
!
!++
!
!== SysdepAbort - ç’°å¢ƒä¾å˜æ€§ãƒ«ãƒ¼ãƒãƒ³ (ãƒ—ãƒã‚°ãƒ©ãƒ åœæ¢)
!
! Authors::   Yasuhiro MORIKAWA, Eizi TOYODA
! Version::   $Id: sysdepabort-abort.f90,v 1.1 2009-03-20 09:09:49 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!
! ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’è¡¨ç¤ºã—ã¦ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’åœæ¢ã—ã¾ã™ã€‚
! é€šå¸¸ã®å‡¦ç†ç³»ã§ã¯ abort() ãŒã‚ã‚‹ã®ã§ã“ã®çµ„ã¿è¾¼ã¿æ‰‹ç¶šãã‚’åˆ©ç”¨ã—ã¾ã™ã€‚
! ãŸã„ã¦ã„ã¯ç•°å¸¸çµ‚äº†ã—ã¾ã™ã€‚
! abort() ãŒå®Ÿè£…ã•ã‚Œã¦ã„ãªã„å‡¦ç†ç³»ã§ã¯ä½•ã‚‚ã—ãªã„ abort() ã‚’é€ ã‚‹ã¨
! ã‚ã¨ã® stop ã§ã¨ã‚ã‚‹ã“ã¨ãŒå¯èƒ½ã§ã™ã€‚
!

subroutine SysdepAbort(string)
  !
  ! ã“ã®æ‰‹ç¶šãã¯ã€å¼•æ•° _string_ ã‚’è£…ç½® * ã«å‡ºåŠ›å¾Œã€
  ! ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’å¼·åˆ¶çµ‚äº†ã•ã›ã¾ã™ã€‚
  ! *AbortProgram* ã¨ã„ã†ã®ã¯ç·ç§°åã§ã™ã€‚
  ! å®Ÿéš›ã«ã¯ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’ç°¡å˜ã«è¦‹ã¤ã‘ã‚‹ãŸã‚ã€
  ! *SysdepAbort* ã¨ã„ã†ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³åã‚’ä¸Žãˆã‚‰ã‚Œã¦ã„ã¾ã™ã€‚
  ! å¤šãã®å®Ÿè£…ã§ã¯çµ‚äº†ã‚³ãƒ¼ãƒ‰ã‚’ã‚¼ãƒä»¥å¤–ã«ã—ã‚ˆã†ã¨è©¦ã¿ã¦ã„ã¾ã™ãŒã€
  ! ãã‚Œã‚’ã‚ã¾ã‚Šå½“ã¦ã«ã™ã‚‹ã¹ãã§ã¯ã‚ã‚Šã¾ã›ã‚“ã€‚
  !
  ! This procedure terminates program after _string_ is
  ! outputted to unit "*".
  ! *AbortProgram* is a generic name of a subroutine.
  ! In fact, the subroutine was given another name *SysdepAbort*,
  ! in order to make it easier to find the source code.
  ! Though many implementations are trying to set exit code
  ! other than zero, that should *not* be relied upon.
  !
  use gtdata_generic, only: gtvarsync
  use dc_trace, only: dbg_scratch
  implicit none
  character(len = *), intent(in):: string
  integer  :: stat
continue
  write(*, *) trim(string)
  call dbg_scratch(.false.)
  call gtvarsync(stat=stat)
  !
  ! Selected by Makefile using m4
  !
  call abort() ! --- dvf, sun ---
  stop 'failsafe'
end subroutine
!--
! vi:set readonly sw=4 ts=8:
!
!Local Variables:
!mode: f90
!buffer-read-only: t
!End:
!
!++