!--
! *** 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:
!
!++