      SUBROUTINE POPARG( INLINE, EXLINE)
      CHARACTER*(*) INLINE, EXLINE
      CHARACTER*127 LINE1, LINE2

      LOGICAL DEBUG, DEBUGL, DEBUGN, DEBUGO, DEBUGP, DEBUGI
      COMMON /DEBCOM/ DEBUG, DEBUGL, DEBUGN, DEBUGO, DEBUGP, DEBUGI
C  DEBUGGING NOTES
C       DEBUG  - GENERAL DEBUG LOGICAL
*       DEBUGL - DEBUG FOR LINE DRAWING
*       DEBUGN - DEBUG FOR NAGOYA
*       DEBUGO - DEBUG FOR ORTEP
C       DEBUGP - DEBUG FLAG FOR PLOTTING SUBROUTINES

      LINE1 = INLINE
      IF(DEBUG) CALL DEBUGR( ' IN POPARG: '//LINE1(1:50) )
      LINE2 = LINE1( INDEX( LINE1, ' ')+1: )

      IF ( LLENG( LINE2) .LT. 1 ) THEN
         EXLINE = ' '
         IF(DEBUG) CALL DEBUGR( 'OUT POPARG:  ' )
         RETURN
      ENDIF

 10   CONTINUE
      IF ( LINE2(1:1) .EQ. ' ') THEN
        LINE1 = LINE2( 2: )
      ELSE
        EXLINE = LINE2
        IF(DEBUG) CALL DEBUGR( 'OUT POPARG: '//LINE2(1:50) )
        RETURN
      ENDIF

      IF ( LINE1( 1:1) .EQ. ' ') THEN
        LINE2 = LINE1( 2: )
      ELSE
        LINE2 = LINE1
      ENDIF
      GOTO 10

      END
