Lines Matching refs:mj
757 integer :: i,j,k,lenseg,nr,nj,mi,mj variable
788 read(264,*)mi,mj
789 if (mj.gt.0) then
790 reducemap(i,mj) = rmapmax
791 reducemap(mj,i) = -rmapmax
792 write(*,*)'mcheck reducemap,',i,mj,rmapmax
794 rmap1d(2,rmapmax) = mj
810 read(264,*)mi,mj
811 if (flag(mj).eq.0) then
812 flag(mj) = i
813 else if (flag(mj).le.nr) then
817 flag(mj) = iabs(reducemap(flag(mj),i))