18.10  INTRAC 

     ITEST=INTRAC(I)
I - A dummy variable
ITEST = .TRUE.  if you are running interactively.