anchor.diff:        write(fio,"(a)")'set border lw 1.0'
         write(fio,"(a,i0,a)")'set xrange[0.5:',n,'.5]'
         write(fio,"(a,i0,a)")'set yrange[0.5:',n,'.5] reverse '
  +
         if(ftype == 4)then
  -        write(fio,"(a)")'set out "image.png"'
  +        write(fio,"(a)")'set out "image.'//fileid//'.png"'
         else
  -        write(fio,"(a)")'set out "image.eps"'
  -
  +        write(fio,"(a)")'set out "image.'//fileid//'.eps"'
           write(fio,"(a)"     )'set label 1 "Name" at graph 1.1,0.9'
           write(fio,"(a)")'set label 2 "N" at graph 1.1,0.85'
           write(fio,"(a)")'set label 3 "Non-Zero Elem." at graph 1.1,0.8'
           write(fio,"(a)")'set label 4 "Density [%]" at graph 1.1,0.75'
           write(fio,"(a)")'set label 9 "Condition Num." at graph 1.1,0.7'
  -
           write(fio,"(a)"     )'set label 5 ":  matrix" at graph 1.4,0.9'
           write(fio,"(a,i0,a)")'set label 6 ":  ',ndof,'" at graph 1.4,0.85'
           write(fio,"(a,i0,a)")'set label 7 ":  ',nnz,'" at graph 1.4,0.8'
  
positive.code:     write(*,*)' gnuplot -persist "nonzero.plt"'
  
      !call system('gnuplot -persist "nonzero.plt"')
  
      !open(fio,file='nonzero.dat',status='old')
      !close(fio,status="delete")
      !open(fio,file='nonzero.plt',status='old')
      !close(fio,status="delete")
    end subroutine hecmw_nonzero_profile
  end module m_fstr_precheck
  
negative.code: 
      integer(kind=kint) :: i, j, in, jS, jE, ftype, n, ndof, nnz, fio
      real(kind=kreal) :: rnum, dens, cond
      character :: fileid*3
    
      fio = 70 + hecMESH%my_rank
      write(fileid,"(i3.3)")hecMESH%my_rank
  
      !ftype = 2: eps
      !ftype = 4: png
      ftype = 4
  
      n = hecMAT%N
      ndof = 3*n
  