Path: | src/sysdepabort-abort.f90 |
Last Update: | Thu Sep 08 22:21:49 JST 2005 |
Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
This file is created by "sysdepabort.m4" by m4 command using "intrinsic_types.m4". Don‘t edit each files directly.
メッセージを表示してプログラムを停止する。 通常の処理系では abort() があるのでこれでいい。たいていは異常終了する。 abort() が実装されていない処理系では何もしない abort() を造ると あとの stop でとめることができる。
string : | character(len = *), intent(in) |
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 ! call abort() ! --- dvf, sun --- stop 'failsafe' end subroutine