Line data    Source code

       1            0 :       subroutine skpcom(ids)
       2              : c
       3              : c  skips initial comment lines on unit ids.
       4              : c  a comment is flagged by a "#" in column no 1.
       5              : c
       6              : c  on exit file is positioned at first non-comment line
       7              : c
       8              :       character*1 i,ic
       9              : c
      10              : c  common defining standard input and output
      11              : c
      12              :       common/cstdio/ istdin, istdou, istdpr, istder
      13              :       data ic /'#'/
      14              : c
      15            0 :    10 read(ids,100,end=90,err=90) i
      16            0 :       if(i.eq.ic) go to 10
      17              : c
      18            0 :       backspace ids
      19            0 :       return
      20              : c
      21              : c  diagnostics for errors
      22              : c
      23            0 :    90 if(istdpr.gt.0) 
      24            0 :      *  write(istdpr,*) 'error or EOF detected in s/r skpcom on unit',
      25            0 :      *  ids
      26            0 :       return
      27              :   100 format(a)
      28              :       end