[UP]

Manual Reference Pages  - filedelete (3)

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
    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

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

filedelete (3) March 11, 2021
Generated by manServer 1.08 from 8ed8dece-309d-442f-aaf6-a3728acdb2ab using man macros.