w3ai39.f File Reference

Translate 'ASCII' field to 'EBCDIC'. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3ai39 (nfld, n)
	translate an 'ASCII' field to 'EBCDIC', all alphanumerics, special charcaters, fill scatter, brocken< clear, overcast, bell, ht and vt (for AFOS).

Detailed Description

Translate 'ASCII' field to 'EBCDIC'.

Author

Armand Desmarais

Date

1993-10-06

Definition in file w3ai39.f.

Function/Subroutine Documentation

w3ai39()

subroutine w3ai39	(	character*1, dimension(*)	nfld,
			n
	)

translate an 'ASCII' field to 'EBCDIC', all alphanumerics, special charcaters, fill scatter, brocken< clear, overcast, bell, ht and vt (for AFOS).

space, '6D' to '5E' conversion (hdrology), changers were made to W3AI38 to give reverse table translation

Program history log:

• Ralph Jones 1993-10-06 Convert ibm370 assebler version to fortran.
• Ralph Jones 1994-04-28 Changes for cray.
• Stephen Gilbert 1998-12-21 Replaced Function ICHAR with mova2i.

Parameters

[in,out]	NFLD	Character*1 array of (in) ASCII data (out) EBCDIC data.
[in]	N	Integer, contains character count to convert.

Note

Software version of IBM370 translate instruction, by changing the table we could do a 64, 96, ASCII character set, change lower case to upper, etc. tr convert data at a rate of 5.4 million characters per sec. tr is in library /usr/lib/libcos.a add to segldr card.

Author

Armand Desmarais

Date

1993-10-06

Definition at line 25 of file w3ai39.f.