w3ai01.f File Reference

Unpack record into IEEE F.P. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3ai01 (pack, real8, label)
	Unpacks a record in office note 84 format and convert the packed data to ieee real floating point numbers.

Detailed Description

Unpack record into IEEE F.P.

Author

Ralph Jones

Date

1989-10-17

Definition in file w3ai01.f.

Function/Subroutine Documentation

w3ai01()

subroutine w3ai01	(	integer(8), dimension(*)	pack,
		real, dimension(*)	real8,
		integer(8), dimension(6)	label
	)

Unpacks a record in office note 84 format and convert the packed data to ieee real floating point numbers.

The office note 84 data is bit for bit the same on the nas-9050 and the cray.

Program history log:

• Ralph Jones 1989-10-20
• Ralph Jones 1990-02-02 Change to cray function for integer*2, f.p.
• Ralph Jones 1990-10-11 Special version of w3ai01 to unpack records packed by big version of w3ai00. Will do old and new version.
• Ralph Jones 1991-03-19 Make special version of w3ai01 to unpack big records the operational version.
• Ralph Jones 1993-06-10 Increace array size to 262144 words.
• Boi Vuong 1998-03-10 Remove the cdir$ integer=64 directive.
• Stephen Gilbert 1998-11-17 Changed to unpack into IEEE reals for the IBM SP.

Parameters

[in]	PACK	Integer array with data in office note 84 format to be unpacked.
[out]	REAL8	Real array of n words. where n is given in word 6 of pack. Word 6 of pack must contain center and scaling values.
[out]	LABEL	Six word integer label copied from pack, 12 office note 84 32 bit id's that are stored into six 64-bit words.

Note

Label and pack may be equivalenced.

Author

Ralph Jones

Date

1989-10-17

Definition at line 31 of file w3ai01.f.