From:	SMTP%"DSJ@WKUVX1.WKU.EDU"  9-APR-1994 15:23:00.93
To:	EVERHART
CC:	
Subj:	APRIL94.RAD50

Message-Id: <9404091921.AA24055@uu7.psi.com>
X-Fileserver: Digital Systems Journal File Server <DSJ@WKUVX1.WKU.EDU>
Date: Sat, 09 Apr 1994 14:22:46 CDT
Sender: DSJ-Mgr@WKUVX1.WKU.EDU
Errors-To: DSJ-Mgr@WKUVX1.WKU.EDU
Warnings-To: <>
From: DSJ-Mgr@WKUVX1.WKU.EDU
Reply-To: DSJ@WKUVX1.WKU.EDU
Subject: APRIL94.RAD50
To: EVERHART@arisia.gce.com

From:	TOLKEN::DETWILER     "Karen -- dsj & newsletter editorial" 28-JAN-1994 09:20:34.84
To:	kristine
CC:	
Subj:	FWD: RE: Article for DSJ

Kristine,

This should be added to the code for the lionel article for CompuServe 
and the file server. It should also be available in the [review] 
directory.

Thank you.

Karen

==


>From uunet!quark.enet.dec.com!lionel Thu, 27 Jan 94 22:46:25 EDT remote 
from cardinal
Received: by thorin.cardinal.com (DECUS UUCP /2.0/2.0/2.0/);
          Thu, 27 Jan 94 22:48:44 EDT
Received: by thorin.cardinal.com (DECUS UUCP /2.0/2.0/2.0/);
          Thu, 27 Jan 94 22:46:22 EDT
Received: from inet-gw-2.pa.dec.com by relay2.UU.NET with SMTP 
          (5.61/UUNET-internet-primary) id AAwary29403; Thu, 27 Jan 94 
15:42:44 -0500
Received: from us2rmc.bb.dec.com by inet-gw-2.pa.dec.com (5.65/13Jan94)
          id AA01818; Thu, 27 Jan 94 12:07:00 -0800
Received: by us2rmc.bb.dec.com; id AA02030; Thu, 27 Jan 94 15:04:09 -0500
Message-Id: <9401272004.AA02030@us2rmc.bb.dec.com>
Received: from quark.enet; by us2rmc.enet; Thu, 27 Jan 94 15:04:09 EST
Date: Thu, 27 Jan 94 15:04:09 EST
From: Steve Lionel  27-Jan-1994 1505 <uunet!quark.enet.dec.com!lionel>
To: thorin.cardinal.com!detwiler
Apparently-To: detwiler@thorin.cardinal.com
Subject: RE: Article for DSJ

A comment about comments - some of the comment lines in the source code 
may
be too long for a print line in DSJ.  If you "wrap" these, please be sure 
to
do it properly for Fortran.  (I'll check the copy you send me, of 
course.)

I expect to get official Digital approval within a couple of days (I've 
got
all the signatures I need but one.)

Any other info you need from me?

Here's my test program.

				Steve

C Test program for Radix-50 routines
C
	PROGRAM RAD50_TEST
	CHARACTER*10 TEST_STRING /'ABC123$. X'/
	INTEGER*2 ARRAY(4)
	BYTE CHARS(10)
	INTEGER*2 IRAD50
	REAL R1,R2

C Test IRAD50 with a CHARACTER variable, passed by descriptor
	DO I=1,4
	ARRAY(I) = 999
	END DO
	N = IRAD50(10,TEST_STRING,ARRAY)
	WRITE (*,101) N,ARRAY
101	FORMAT (1X,I2,1X,4O8.7)

C Same text, but with a character literal (passed by reference)
	DO I=1,4
	ARRAY(I) = 999
	END DO
	N = IRAD50(10,%REF('ABC123$. X'),ARRAY)
	WRITE (*,101) N,ARRAY

C Convert back to ASCII with R50ASC
	CALL R50ASC(10,ARRAY,CHARS)
	WRITE (*,102) CHARS
102	FORMAT(1X,10A1)

C Test RAD50 function both ways
	R1 = RAD50(%REF('PASSED'))
	WRITE (*,103) R1
103	FORMAT (1X,Z8.8)
	R2 = RAD50(%DESCR('PASSED'))
	WRITE (*,103) R2

	DO I=1,10
	CHARS(I) = ' '
	END DO
	CALL R50ASC(6,R2,CHARS)
	WRITE (*,102) CHARS
	END	

The output should be:

10  0003223 0143341 0126440 0113000
10  0003223 0143341 0126440 0113000
ABC123$. X
778C643B
778C643B
PASSED

To verify, compile and link the program (without my subroutines) on VAX 
to
compare against the VMS-supplied versions.