w3fi32.f File Reference

Pack id's into office note 84 format. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fi32 (larray, kidnt)
	Converts an array of the 27 data field identifiers into an array of the first 8 identification words of the format de- scribed in NMC office note 84 (89-06-15, page-35).

Detailed Description

Pack id's into office note 84 format.

Author

Alan Nierow

Date

1986-02-07

Definition in file w3fi32.f.

Function/Subroutine Documentation

w3fi32()

subroutine w3fi32	(	integer(8), dimension(27)	larray,
		integer(8), dimension(*)	kidnt
	)

Converts an array of the 27 data field identifiers into an array of the first 8 identification words of the format de- scribed in NMC office note 84 (89-06-15, page-35).

On a cray they will fit into four 64 bit integer words.

Program history log:

• Alan Nierow 1986-02-07
• Ralph Jones 1989-10-24 Convert to cray cft77 fortran.
• Ralph Jones 1991-03-19 Changes for big records.
• Boi Vuong 1998-03-10 Remove the cdir$ integer=64 directive.
• Stephen Gilbert 1999-03-15 Specified 8-byte integer array explicitly.

Parameters

[in]	LARRAY	Integer array containing 27 data field identifiers (see o.n. 84)
[out]	KIDNT	Integer array of 6 words, 12 office note 84 32 bit words, first 4 words are made by w3fi32(), if you are using packer w3ai00(), it will compute word 5 and 6. (office note 84 words 9,10, 11 and 12). If J the word count in word 27 of LARRAY is greater than 32743 then bits 15-0 of the 4th ID word are set to zero, J is stored in bits 31-0 of the 6th ID word. ID word 5 is set zero, bit 63-32 of the 6th ID word are set zero.

Note

bis are number left to right on the cray as 63-0.

Exit states printed messages: If any number n in (LARRAY(i),i=1,27) is erroneously large: 'value in LARRAY(i)=n is too large to pack' if any number n in (LARRAY(i),i=1,27) is erroneously negative: 'value in LARRAY(i)=n should not be negative' in either of the above situations, that portion of the packed word corresponding to LARRAY(i) will be set to binary ones.

Author

Alan Nierow

Date

1986-02-07

Definition at line 39 of file w3fi32.f.