1*35973Sbostic C 2*35973Sbostic COMMON /DEBUG/ DBGFLG,PRSFLG,GDTFLG 3*35973Sbostic #ifdef debug 4*35973Sbostic LOGICAL DFLAG 5*35973Sbostic #endif debug 6