subroutine printit()
integer :: i
integer :: m,n
integer :: l
if(allocated(G_PSEUDO_FILE)) write(*,*)'G_PSEUDO_FILE:SIZE:',size(G_PSEUDO_FILE)
write(*,gen1)'G_PROMPT:',G_PROMPT,':G_ECHO:',G_ECHO
write(*,gen1)'G_LIN:',trim(ade2str(G_LIN))
write(*,gen1)'G_LINE_POINTER:',G_LINE_POINTER
! ! [1] first character to process in current line
! ! [2] last character to process in current line
! ! [3]
! ! [4] pointer into current character in current line being processed
! ! [5]
! ! [6]
write(*,gen1)'G_LHS:',G_LHS,':G_RHS:',G_RHS
write(*,gen1)'G_FIN:',G_FIN,':G_FUN:',G_FUN,':G_FMT:',G_FMT
write(*,gen1)'G_RIO:',G_RIO,':G_INPUT_LUN:',G_INPUT_LUN
write(*,gen1)'G_PTZ:',G_PTZ,':G_SYM:',G_SYM,':G_SYN:',trim(ade2str(G_SYN))
write(*,gen1)'G_CURRENT_RANDOM_SEED:',G_CURRENT_RANDOM_SEED,':G_CURRENT_RANDOM_TYPE:',G_CURRENT_RANDOM_TYPE
write(*,gen1)'G_FLOP_COUNTER:',G_FLOP_COUNTER
write(*,gen1)'G_DEBUG_LEVEL:',G_DEBUG_LEVEL
write(*,gen1)'G_FILE_OPEN_ERROR:',G_FILE_OPEN_ERROR,':G_ERR:',G_ERR
write(*,gen1)'G_LINECOUNT:',G_LINECOUNT
! ! [1] lines displayed since count started
! ! [2] line limit before warning (ie. page length+1)
! ! [3] 0 or 1 for "semi" mode to be on or off
! ! [4] flag from "exec" command, and ...
write(*,gen1)'G_BUF:',trim(ade2str(G_BUF))
write(*,gen1)'GM_BIGMEM:',GM_BIGMEM
write(*,gen1)'G_TOP_OF_SAVED:',G_TOP_OF_SAVED,':G_ARGUMENT_POINTER:',G_ARGUMENT_POINTER
do i=1,GG_MAX_NUMBER_OF_NAMES
m=G_VAR_ROWS(i)
n=G_VAR_COLS(i)
l=G_VAR_DATALOC(i)
if(.not.(ade2str(G_VAR_IDS(:,i)).eq.''.and.l.eq.0.and.m.eq.0.and.n.eq.0))then
write(*,*)i,ade2str(G_VAR_IDS(:,i)),l,m,n,'VALS=',real(GM_REALS(l:l+m*n-1))
endif
enddo
!==================================================================================================================================!
! PARSING
!integer,parameter :: G_PSIZE=32 ! stack size for pseudo-recursion
!integer :: G_IDS(GG_MAX_NAME_LENGTH,G_PSIZE)
!integer :: G_PSTK(G_PSIZE)
!integer :: G_RSTK(G_PSIZE)
!integer :: G_PT
!
!integer :: G_CHRA ! current character in line
!==================================================================================================================================!
!doubleprecision,allocatable :: GM_REALS(:), GM_IMAGS(:) ! set to size of GM_BIGMEM
!==================================================================================================================================!
end subroutine printit