Path: | dc_error.f90 |
Last Update: | Mon Jan 16 06:43:14 JST 2006 |
Authors: | Eizi TOYODA, Yasuhiro MORIKAWA |
Version: | $Id: dc_error.f90,v 1.6 2006/01/15 21:43:14 morikawa Exp $ |
Tag Name: | $Name: gt4f90io-20060121-2 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. |
License: | See COPYRIGHT |
This file provides dc_error
Subroutine : |
GetErrorMessage からエラーメッセージを取得後、 それを sysdep#AbortProgram に渡してプログラムを終了させます。
subroutine DumpError() ! ! GetErrorMessage からエラーメッセージを取得後、 ! それを sysdep#AbortProgram に渡してプログラムを終了させます。 ! use dc_types, only: STRING use dc_string, only: put_line use dc_error, only: GetErrorMessage use sysdep, only: AbortProgram character(len = STRING):: message continue call GetErrorMessage(message) call AbortProgram(message) end subroutine DumpError