status.f File Reference

Check whether a file is connected to the NCEPLIBS-bufr software. More...

Go to the source code of this file.

Functions/Subroutines
recursive subroutine	status (LUNIT, LUN, IL, IM)
	Check whether a specified Fortran logical unit number is currently connected to the NCEPLIBS-bufr software. More...

Detailed Description

Check whether a file is connected to the NCEPLIBS-bufr software.

Author

J. Woollen

Date

1994-01-06

Definition in file status.f.

Function/Subroutine Documentation

status()

recursive subroutine status	(		LUNIT,
			LUN,
			IL,
			IM
	)

Check whether a specified Fortran logical unit number is currently connected to the NCEPLIBS-bufr software.

If the unit number is already connected, then the subroutine returns information about the associated file. Otherwise, it returns the next available file ID that could be used to connect the associated file to the software via a subsequent call to subroutine wtstat().

Parameters

[in]	LUNIT	- integer: Fortran logical unit number for BUFR file.
[out]	LUN	- integer: File ID associated with LUNIT. 0 = LUNIT is not already connected to the software, and there is no remaining internal space available that could be used to connect it.
[out]	IL	- integer: File status: 0 = LUNIT is not already connected to the software, but LUN contains a file ID that could be used to connect it via a subsequent call to subroutine wtstat(). 1 = LUNIT is already connected to the software for output operations (i.e. writing/encoding BUFR). -1 = LUNIT is already connected to the software for input operations (i.e. reading/decoding BUFR).
[out]	IM	- integer: Message status, indicating whether there is already a message open within internal arrays for LUNIT. 0 = No 1 = Yes

Author

J. Woollen

Date

1994-01-06

Definition at line 35 of file status.f.

References bort(), errwrt(), modv_im8b::im8b, moda_stbfr::iolun, moda_stbfr::iomsg, modv_nfiles::nfiles, x48(), and x84().

Referenced by closbf(), closmg(), copybf(), copymg(), copysb(), cpdxmm(), cpymem(), datebf(), drfini(), dumpbf(), dxdump(), getabdb(), getcfmng(), gettab(), gettagpr(), gettagre(), getvalnb(), ifbget(), igetsc(), invmrg(), iupvs01(), lcmgdf(), mesgbc(), minimg(), msgwrt(), nemdefs(), nemspecs(), nmsub(), openbf(), openmb(), openmg(), posapx(), rdmemm(), rdmems(), rdmgsb(), rdmsgw(), readdx(), readerme(), readlc(), readmg(), readns(), readsb(), rewnbf(), rtrcpt(), setvalnb(), bufr_c2f_interface::status_c(), stndrd(), ufbcnt(), ufbcpy(), ufbcup(), ufbdmp(), ufbevn(), ufbget(), ufbin3(), ufbint(), ufbinx(), ufbmem(), ufbmms(), ufbovr(), ufbpos(), ufbqcd(), ufbqcp(), ufbrep(), ufbrms(), ufbseq(), ufbstp(), ufbtab(), ufbtam(), ufdump(), upftbv(), wrcmps(), wrdxtb(), writlc(), writsa(), and writsb().