integer nCheckLev1, nCheckLev2, nCheckLev3,nCheckLev4
read(2,'(I5,/,I5,/I5,/I5)') nCheckLev1, nCheckLev2, nCheckLev3,
+', 2nd:', nCheckLev2,
if (nCheckLev2 .eq. 1 ) then
uCheckLev2=nCheckLev2