sysdepabort-setrcd.f90

Path: src/sysdepabort-setrcd.f90
Last Update: Thu Sep 08 22:21:49 JST 2005 
    Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.

sysdepabort.m4 - 環境依存性ルーチン (プログラム停止)

This file is created by "sysdepabort.m4" by m4 command using "intrinsic_types.m4". Don‘t edit each files directly.

メッセージを表示してプログラムを停止する。 通常の処理系では abort() があるのでこれでいい。たいていは異常終了する。 abort() が実装されていない処理系では何もしない abort() を造ると あとの stop でとめることができる。

Methods

sysdepabort  

Included Modules

gtdata_generic dc_trace dc_types

Public Instance methods

sysdepabort(string)
string :character(len = *), intent(in)

[Source]

  subroutine sysdepabort(string)

      implicit none
      character(len = *), intent(in):: string
      integer(INTK)  :: stat
      write(*, *) trim(string)
      call dbg_scratch(.false.)
      call gtvarsync(stat=stat)
  !
  ! Selected by Makefile using m4
  !
      ! --- fqs ffc ---
      call setrcd(3)
      call exit
      stop 'failsafe'
  end subroutine

[Validate]