INTEGER W2_oUnit, W2_printMsg
& W2_oUnit, W2_printMsg
IF ( W2_printMsg .NE. 0 ) THEN
IF ( W2_printMsg .LT. 0 ) THEN
prtFlag = ABS(W2_printMsg).GE.2
& .OR. ( W2_printMsg .NE.0 .AND. myProcId.EQ.0 )
WRITE(msgBuf,'(A,I4,A)') 'W2_printMsg =', W2_printMsg,
& W2_printMsg,
W2_printMsg = -1