C*	ROUTINE TO DELETE IMBEDDED BLANKS  -  UNDBLK
C
      SUBROUTINE BLANK(CARD,ICS,ICE,ISE)
C	ICK(6) CHANGED TO ICK(8). 1H+, 1H- ADDED     JUNE 17, 1979
      BYTE CARD(80),STRING,ISTR,ICK(8),IB
      COMMON STRING(660),ISTR(660)
      DATA ICK/1H/,1H,,1H(,1H),1H=,1H*,1H+,1H-/
      DATA IB/1H /
C
C	NUMERIC CODES FOR ISTR
C	   STRING =   / , ( ) = * + -
C	   ISTR   =   1 2 3 4 5 6 7 8
C
      DO 30 I=ICS,ICE
      IF (CARD(I).EQ.IB) GO TO 30
      ISE=ISE+1
      DO 10 K=1,8
      IF (CARD(I).EQ.ICK(K)) GO TO 20
10    CONTINUE
      STRING(ISE)=CARD(I)
      ISTR(ISE)=0
      GO TO 30
20    STRING(ISE)=IB
      ISTR(ISE)=K
30    CONTINUE
      RETURN
      END