copysb.f File Reference

Copy a BUFR data subset. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	copysb (LUNIN, LUNOT, IRET)
	This subroutine copies a BUFR data subset from one Fortran logical unit to another. More...

Detailed Description

Copy a BUFR data subset.

Definition in file copysb.f.

Function/Subroutine Documentation

subroutine copysb	(		LUNIN,
			LUNOT,
			IRET
	)

This subroutine copies a BUFR data subset from one Fortran logical unit to another.

Author

J. Woollen

Date

1994-01-06

Parameters

[in]	LUNIN	- integer: Fortran logical unit number for source BUFR file
[in]	LUNOT	- integer: Fortran logical unit number for target BUFR file
[out]	IRET	- integer: return code 0 = normal return -1 = a BUFR data subset could not be read from the BUFR message in internal arrays for LUNIN

Logical unit LUNIN should have already been opened for input operations via a previous call to subroutine openbf(), and a BUFR message should have already been read into internal arrays for LUNIN via a previous call to one of the message-reading subroutines.

Logical unit LUNOT should have already been opened for output operations via a previous call to subroutine openbf(), and a BUFR message should already be open for output within internal arrays via a previous call to one of the BUFRLIB message-writing subroutines.

The compression status of the data subset (i.e. compressed or uncompressed) will be preserved when copying from LUNIN to LUNOT.

If LUNOT < 0, then a data subset is read from the BUFR message in internal arrays for LUNIN but is not copied to the BUFR message in internal arrays for LUNOT. Otherwise, the DX BUFR Table information associated with each of the logical units LUNIN and LUNOT must contain identical definitions for the type of BUFR message containing the data subset to be copied from LUNIN to LUNOT.

Program history log:

• 1994-01-06 J. Woollen – Original author
• 1998-07-08 J. Woollen – Replaced call to Cray library routine ABORT with call to new internal routine bort()
• 1999-11-18 J. Woollen – The number of BUFR files which can be opened at one time increased from 10 to 32 (necessary in order to process multiple BUFR files under the MPI)
• 2000-09-19 J. Woollen – Maximum message length increased from 10,000 to 20,000 bytes
• 2002-05-14 J. Woollen – Removed old Cray compiler directives
• 2004-08-09 J. Ator – Maximum message length increased from 20,000 to 50,000 bytes
• 2005-09-16 J. Woollen – Now writes out compressed subset/message if input subset/message is compressed (before could only write out uncompressed subset/ message regardless of compression status of input subset/message)
• 2009-06-26 J. Ator – Use iok2cpy()
• 2014-11-03 J. Ator – Handle oversized (>65530 bytes) subsets
• 2014-12-10 J. Ator – Use modules instead of COMMON blocks

Definition at line 65 of file copysb.f.

References bort(), cmpmsg(), cpyupd(), getlens(), iok2cpy(), mesgbc(), readsb(), status(), ufbcpy(), upb(), and writsb().

Referenced by icopysb().