C C AUTHOR: C R. STODOLA C THE INSTITUTE FOR CANCER RESEARCH C 7701 BURHOLME AVE. C PHILADELPHIA, PA. 19111 C C ******************************************************* C * * C * THIS SOFTWARE WAS DEVELOPED WITH SUPPORT * C * FROM THE NATIONAL INSTITUTES OF HEALTH: * C * NIH CA06927 * C * NIH CA22780 * C * * C * DIRECT INQUIRIES TO: * C * COMPUTER CENTER * C * THE INSTITUTE FOR CANCER RESEARCH * C * 7701 BURHOLME AVENUE * C * PHILADELPHIA, PENNSYLVANIA 19111 * C * * C * NO WARRANTY OR REPRESENTATION, EXPRESS OR * C * IMPLIED, IS MADE WITH RESPECT TO THE * C * CORRECTNESS, COMPLETENESS, OR USEFULNESS * C * OF THIS SOFTWARE, NOR THAT USE OF THIS * C * SOFTWARE MIGHT NOT INFRINGE PRIVATELY * C * OWNED RIGHTS. * C * * C * NO LIABILITY IS ASSUMED WITH RESPECT TO * C * THE USE OF, OR FOR DAMAGES RESULTING FROM * C * THE USE OF THIS SOFTWARE * C * * C ******************************************************* C * * C * THIS SOFTWARE WAS DESIGNED FOR USE ON A * C * PDP-11/70 OPERATING UNDER IAS V2.0 USING * C * THE FORTRAN-IV PLUS COMPILER. * C * * C ******************************************************* SUBROUTINE EBASC(IN,N) C C SUBROUTINE TO CONVERT EBCDIC TO ASCII. C CALL EBASC(IN,N) C IN -- ARRAY CONTAINING EBCDIC CHARACTERS. C N -- LENGTH OF ARRAY. C UNKNOWN CHARACTERS ARE REPLACED WITH ASCII QUESTION MARKS("77). C BYTE IN(N),CONV(0:255),CON(32:127) DATA CONV/256*"77/ DATA CON/"100,"132,"177,"173,"133,"154,"120,"175, $"115,"135,"134,"116,"153,"140,"113,"141, $"360,"361,"362,"363,"364,"365,"366,"367, $"370,"371,"172,"136,"114,"176,"156,"157, $"174,"301,"302,"303,"304,"305,"306,"307, $"310,"311,"321,"322,"323,"324,"325,"326, $"327,"330,"331,"342,"343,"344,"345,"346, $"347,"350,"351,"300,"340,"320,"117,"155, $"157,"201,"202,"203,"204,"205,"206,"207, $"210,"211,"221,"222,"223,"224,"225,"226, $"227,"230,"231,"242,"243,"244,"245,"246, $"247,"250,"251,"157,"157,"157,"157,"157/ DATA IFLAG/0/ IF(IFLAG)10,10,30 10 DO 20 I=32,127 L=CON(I) L=L.AND."377 IF(L.EQ."157)GO TO 20 CONV(L)=I 20 CONTINUE IFLAG=1 30 DO 40 I=1,N L=IN(I) L=L.AND."377 40 IN(I)=CONV(L) RETURN C ENTRY ASCEB(IN,N) C C ROUTINE TO CONVERT ASCII TO EBCDIC. C CALL ASCEB(IN,N) C IN -- ARRAY CONTAINING ASCII CHARACTERS. C N -- LENGTH OF ARRAY. C UNKNOWN OR ILLEGAL CHARACTERS ARE REPLACED WITH EBCDIC QUESTION MARKS C ("157). C DO 50 I=1,N L=IN(I) L=L.AND."177 IF(L.LT.32)L="77 50 IN(I)=CON(L) RETURN END