INTEGER nRetired
nRetired = 0
nRetired = nRetired + 1
IF ( nRetired .GT. 0 ) THEN
INTEGER nRetired, errCount
nRetired = nRetired+1
WRITE(msgBuf,'(I4,A)') nRetired,
integer nRetired