      LOGICAL FUNCTION EMBED(A,N)
C
C -- FUNCTION RETURNS TRUE IF THE FIRST "N" CHARACTERS  OF "A"
C    CONTAIN EMBBEDED OR TRAILING BLANKS, OR EXPLICIT ZEROS LEADING
C    A NEGATIVE SIGN.
C
      CHARACTER A*(*)
      INTEGER N,I,J
C
      EMBED = .FALSE.
C
C -- LOOK FOR THE LAST BLANK OR NEGATIVE SIGN.
C
      DO 10 I=N,2,-1
         J = I
         IF(A(I:I) .EQ. ' ') GO TO 20
         IF(A(I:I) .EQ. '-') GO TO 20
 10   CONTINUE
C     -- IF GOT TO HERE FIELD IA ALL FILLED.
      RETURN
C
 20   J = J - 1
      DO 30 I=1,J
         IF(A(I:I) .NE. ' ') THEN
             EMBED = .TRUE.
             RETURN
         ENDIF
 30   CONTINUE
      RETURN
      END
