dc_error.f90

Path: dc_error.f90
Last Update: Sun Jun 04 21:48:43 JST 2006

dc_error.f90 - エラー処理

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

Required files

netcdf_f77.f90   dc_error.f90   dc_string.f90   dc_types.f90  

Methods

DumpError  

Included Modules

dc_types dc_string dc_error sysdep

Public Instance methods

DumpError( )
Subroutine :

GetErrorMessage からエラーメッセージを取得後、 それを sysdep#AbortProgram に渡してプログラムを終了させます。

[Source]

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

[Validate]