
	subroutine primex(ysymbl,error)
#
logical error,show
integer ysymbl,panz,palpha(7)
integer	ap,dp,ep,fp,mp,np
real	bp,cpx,cpy,lp
#
common	/pmattr/ap,bp,cpx,cpy,dp,ep,fp,lp,mp,np
common	/flags/show
#
data	panz/7/
data	palpha/'f_','g_','l'','l"','r'','r"','$_'/
#
write(1,10)
10 format(' *** PRIMEX - Symbol = ')
read(1,20) ysymbl
20 format(a2)
i=1 ; error=.true.
while (error && i<=panz)
	if (ysymbl==palpha(i)) error=.false.
	else i=i+1
if (error) write(1,30)
30 format(' PRIMEX - Error')
write(1,80)
80 format(' *** PRIMEX - Ende ***')
return
end
