30 lines
642 B
Fortran
30 lines
642 B
Fortran
subroutine readbf(ius)
|
|
c ======================
|
|
c
|
|
c auxiliary subroutine for enabling reading of input data with
|
|
c comments
|
|
c
|
|
c lines beginning with ! or * are understood as comments
|
|
c
|
|
INCLUDE 'IMPLIC.FOR'
|
|
INCLUDE 'BASICS.FOR'
|
|
character*80 buff
|
|
c
|
|
iur=ius
|
|
if(iur.eq.0) iur=5
|
|
iuw=ibuff
|
|
if(iur.ne.5) iuw=95
|
|
c
|
|
10 continue
|
|
read(iur,501,end=20) buff
|
|
c PRINT *, 'READ LINE:', TRIM(BUFF)
|
|
if(buff(1:1).eq.'!'.or.buff(1:1).eq.'*') go to 10
|
|
write(iuw,501) buff
|
|
go to 10
|
|
c
|
|
20 continue
|
|
rewind iuw
|
|
return
|
|
501 format(a)
|
|
end
|