w3fi03.f File Reference

Transfers default integers to 16 bit ints. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fi03 (in, idest, num, ier)
	Transfers an array of numbers from default integer words to 16 bit (IBM integer*2) IBM half-words.

Detailed Description

Transfers default integers to 16 bit ints.

Author

Dennis Keyser

Date

1992-06-29

Definition in file w3fi03.f.

Function/Subroutine Documentation

w3fi03()

subroutine w3fi03	(	integer, dimension(*)	in,
		integer(2), dimension(*)	idest,
			num,
			ier
	)

Transfers an array of numbers from default integer words to 16 bit (IBM integer*2) IBM half-words.

Program history log:

• Dennis Keyser 1992-06-29
• Stephen Gilbert 1998-11-17 Removed Cray references.

Parameters

[in]	IN	Starting address for array of default integers
[in]	NUM	Number of numbers in 'IN' to transfer.
[out]	IDEST	Starting address for array of 16 bit IBM half-words
[out]	IER	Error return code as follows: IER = 0 - Transfer successful, all numbers Transferred without overflow. IER = 1 - The transfer of one or more numbers Resulted in an overflow.

Note

This is the inverse of library routine w3fi02().

Author

Dennis Keyser

Date

1992-06-29

Definition at line 24 of file w3fi03.f.