wrterr.f
上传用户:szhypcb168
上传日期:2007-01-06
资源大小:2187k
文件大小:1k
- c==========================================================================
- c
- c ROUTINE
- c write_error
- c
- c FUNCTION
- c
- c prints sungraph write error message
- c
- c SYNOPSIS
- c subroutine write_error(status,string)
- c
- c formal
- c
- c data I/O
- c name type type function
- c -------------------------------------------------------------------
- c status i i sungraph error index
- c string chr i name of file in error
- c
- c==========================================================================
- c
- c DESCRIPTION
- c
- c
- c**************************************************************************
- c
- subroutine write_error(status,string)
- implicit undefined(a-z)
- integer status
- character*(*) string
- c
- print *,' write_error: disk write error at ', string
- call print_disk_write_error(status)
- stop
- end