changes: W. Ebisuzaki fixed typo which was causing seg fault ELSE IF(I1.EQ.I2) THEN IA(1) = 1 C WNE 5/2014 IB(2) = 360 IB(1) = 360 KK = 1 ENDIF