w3fi47.f File Reference

Convert label to off. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fi47 (ilabel, nlabel)
	Converts a office note 85 label in IBM370 format to office note 85 cray format.

Detailed Description

Convert label to off.

no. 85 format (cray)

Author

Ralph Jones

Date

1985-07-31

Definition in file w3fi47.f.

Function/Subroutine Documentation

w3fi47()

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

Converts a office note 85 label in IBM370 format to office note 85 cray format.

All EBCDIC characters are converted to ASCII. Converts binary or coded label.

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 words (32 bytes) characters are in EBCDIc or binary.
[out]	NLABEL	4 words (32 bytes), characters are in ASCII or binary.

Author

Ralph Jones

Date

1985-07-31

Definition at line 20 of file w3fi47.f.