Path: | dc_error.f90 |
Last Update: | Sun Jun 04 21:48:43 JST 2006 |
Authors: | Eizi TOYODA, Yasuhiro MORIKAWA |
Version: | $Id: dc_error.f90,v 1.8 2006/06/04 12:48:43 morikawa Exp $ |
Tag Name: | $Name: gt4f90io-20060719-1 $ |
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