anchor.diff:      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
  
positive.code:         write(fio,"(a,1pe9.2,a)")'set label 10 ": ',cond,'" at graph 1.4,0.7'
        endif
  
        write(fio,"(a,f12.5,a)")'plot "nonzero.dat" pointtype 5 pointsize ',rnum,' linecolor rgb "#F96566"'
      close(fio)
  
      write(*,*)''
  
negative.code:     cond = 1.0d0
      !rnum = (7.25d0)*10.0d0/dble(hecMAT%N)
  
      open(fio,file='nonzero.dat.'//fileid, status='replace')
        !write(fio,"(a,f12.5,i0)")"##magic number 10 : 7.2, ",rnum,hecMAT%N
        do i= 1, n
          jS= hecMAT%indexL(i-1) + 1
          jE= hecMAT%indexL(i  )
          write(fio,"(i0,a,i0)")i,"  ",i
          do j= jS, jE
            in = hecMAT%itemL(j)
            write(fio,"(i0,a,i0)")i, "  ",in
            write(fio,"(i0,a,i0)")in,"  ",i
          enddo
        enddo
      close(fio)
  
      open(fio,file='nonzero.plt.'//fileid, status='replace')
        if(ftype == 4)then
          write(fio,"(a)")'set terminal png size 1500,1500'
        else
          write(fio,"(a)")'set terminal postscript eps enhanced color solid "TimesNewRomanPSMT" 20'
        endif
  
        write(fio,"(a)")'unset key'
        write(fio,"(a)")'unset xtics'
        write(fio,"(a)")'unset ytics'
  