---

C Library Functions  - fileclose (3)

---

NAME

fileclose(3f) - [M_io] A simple close of a sequential file (LICENSE:PD)

CONTENTS

Synopsis
Description
Option
Returns
Examples
Author
License

SYNOPSIS

function fileclose(lun) result(iostat)

     integer,intent(in)       :: lun
     integer                  :: iostat

DESCRIPTION

A convenience command for closing a file that leaves an error message in the current journal file if active.

OPTION

LUN	unit number to close

RETURNS

IOSTAT	status value from CLOSE

EXAMPLES

Sample program:

    program demo_fileclose
    use M_io, only : fileclose, fileopen
    implicit none
    integer :: lun
    integer :: iostat, ierr
       lun=fileopen(’<input.txt’,iostat=ierr)
       if(ierr /= 0)then
          write(*,*)’<ERROR> opening file’
       endif
       iostat=fileclose(lun)
    end program demo_fileclose

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

fileclose (3)

August 28, 2026

Generated by manServer 1.08 from 45ed3446-f7ca-4c31-a4e0-fde0ed1e672c using man macros.