---

Manual Reference Pages  - filedelete (3m_io)

---

NAME

filedelete(3f) - [M_io] A simple close of an open file with STATUS=’DELETE’ (LICENSE:PD)

CONTENTS

Synopsis
Description
Option
Returns
Example
Author
License

SYNOPSIS

function filedelete(lun) result(ios)

    integer,intent(in)          :: lun
      or
    character(len=*),intent(in) :: filename
    integer                     :: ios

DESCRIPTION

A convenience command for deleting an OPEN(3f) file that leaves an error message in the current journal file if active

OPTION

LUN	unit number of open file to delete or filename.

RETURNS

IOS	status returned by CLOSE().

EXAMPLE

Sample program:

    program demo_filedelete
    use M_io, only : filedelete, fileopen
    implicit none
    integer :: lun
    integer :: ios
       lun=fileopen(’<input.txt’)
       ios=filedelete(lun)
    end program demo_filedelete

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

filedelete (3m_io)

October 25, 2024

Generated by manServer 1.08 from 104c903b-4087-4595-938a-e4073b0f20e4 using man macros.