21 lines
466 B
Fortran
21 lines
466 B
Fortran
subroutine readbf
|
|
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 'PARAMS.FOR'
|
|
character*80 buff
|
|
10 continue
|
|
read(5,501,end=20) buff
|
|
if(buff(1:1).eq.'!'.or.buff(1:1).eq.'*') go to 10
|
|
write(ibuff,501) buff
|
|
go to 10
|
|
501 format(a)
|
|
20 continue
|
|
rewind ibuff
|
|
return
|
|
end
|