这是一段源源程序，标红处不知道意思，请高手指教。判断条件是不存在吗？‘（8a）’是什么格式？
c.... open disp0 file to get the numbers of nodes and degree of freedom
      open(1,file=' ',form='unformatted')
      read(1) knode,kdgof
      close(1)
      kvar=knode*kdgof
      KCOOR=3
      kna3=kdgof*knode*1
      if (kna3/2*2 .lt. kna3) kna3=kna3+1
      kna1=kcoor*knode*2
      kna2=kdgof*knode*2
      kna0=1
      kna1=kna1+kna0
      kna2=kna2+kna1
      kna3=kna3+kna2
      call bft(knode,kdgof,kcoor,tmax,time,it,
     *ia(kna0),ia(kna1),ia(kna2),
     *filename)
 
C ...... OPEN THE FILE TO OBTAIN GRAPH FILE NAMES
      inquire(file='plotname',exist=filflg)
      if [color=FF0000](.NOT. filflg)[/color] then
      fname1 = 'unod'
      open(6,file='plotname',form='formatted',status='unknown')
      write(6,'(8a)') fname1
      close(6)
      endif
      open(6,file='plotname',form='formatted',status='old')
C ...... OPEN THE BATCH FILE FOR STORING THE RESULT TO GRAPHIC
      open(7,file='post.bat',form='formatted',status='unknown')