NCEPLIBS-bufr
11.5.0
|
Check whether a system file is connected to the BUFRLIB software. More...
Go to the source code of this file.
Functions/Subroutines | |
subroutine | status (LUNIT, LUN, IL, IM) |
This subroutine checks whether a specified Fortran logical unit number is currently connected to the BUFRLIB software. More... | |
Check whether a system file is connected to the BUFRLIB software.
Definition in file status.f.
subroutine status | ( | LUNIT, | |
LUN, | |||
IL, | |||
IM | |||
) |
This subroutine checks whether a specified Fortran logical unit number is currently connected to the BUFRLIB software.
If the unit number is already connected, then the subroutine returns information about the associated file. Otherwise, it returns the next available internal I/O stream index that could be used to connect the associated file to the software via a subsequent call to subroutine wtstat().
[in] | LUNIT | - integer: Fortran logical unit number for BUFR file |
[out] | LUN | - integer: Internal I/O stream index associated with LUNIT
|
[out] | IL | - integer: File status
|
[out] | IM | - integer: Message status, indicating whether there is already a message open within internal arrays for LUNIT
|
Program history log:
Definition at line 61 of file status.f.
References bort().
Referenced by closbf(), closmg(), copybf(), copymg(), copysb(), cpdxmm(), cpymem(), datebf(), drfini(), dumpbf(), dxdump(), getabdb(), getcfmng(), 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(), 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().