w3fi48.f File Reference

Convert office note 85 label to IBM. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fi48 (ilabel, nlabel)
	Converts office note 85 label from the cray format into a nas-9050 label.

Detailed Description

Convert office note 85 label to IBM.

Author

Ralph Jones

Date

1985-07-31

Definition in file w3fi48.f.

Function/Subroutine Documentation

w3fi48()

subroutine w3fi48	(	character*1, dimension(32)	ilabel,
		character*1, dimension(32)	nlabel
	)

Converts office note 85 label from the cray format into a nas-9050 label.

All ASCII characters are converted into EBCDIC characters. Binary or coded labels can be converted.

Program history log:

• Ralph Jones 1985-07-31
• Ralph Jones 1989-10-24 Convert to cray cft77 fortran.
• Boi Vuong 2002-10-15 Replaced function ichar with mova2i.

Parameters

[in]	ILABEL	4 64 bit words or 32 characters characters are in ASCII or binary.
[out]	NLABEL	4 64 bit words or 32 characters, characters are in EBCDIC or binary.

Note

See office note 85.

Author

Ralph Jones

Date

1985-07-31

Definition at line 23 of file w3fi48.f.