q9ie32.f File Reference

Convert IBM370 F.P. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	q9ie32 (a, b, n, istat)
	Convert ibm370 32 bit floating point numbers to ieee 32 bit task 754 floating point numbers.

Detailed Description

Convert IBM370 F.P.

to IEEE F.P.

Author

Ralph Jones

Date

1990-06-04

Definition in file q9ie32.f.

Function/Subroutine Documentation

q9ie32()

subroutine q9ie32	(	integer(4), dimension(*)	a,
		integer(4), dimension(*)	b,
			n,
			istat
	)

Convert ibm370 32 bit floating point numbers to ieee 32 bit task 754 floating point numbers.

Program history log:

• Ralph Jones 1990-06-04 Change to sun fortran 1.3
• Ralph Jones 1990-07-14 Change ishft to lshift or lrshft
• Ralph Jones 1991-03-09 Change to silicongraphics fortran
• Ralph Jones 1992-07-20 Change to ibm aix xl fortran
• Ralph Jones 1995-11-15 Add save statement
• Stephen Gilbert 1998-11-15 Specified 4-byte integers for IBM SP

Parameters

[in]	A	REAL*4 Array of ibm370 32 bit floating point numbers.
[out]	N	Number of points to convert.
[out]	B	REAL*4 Array of ieee 32 bit floating point numbers.
[out]	ISTAT	Number of point greater than 10e+38, numbers are set to ieee infinity, one is added to istat. Numbers less than e-38 are set to zero, one is not added to istat.

Note

See ieee task 754 standard floating point arithmetic for more information about IEEE F.P.

Author

Ralph Jones

Date

1990-06-04

Definition at line 27 of file q9ie32.f.