dc. DBINC.FOR c. Include file for DB.FOR ,c. end.of.info c.  parameter nfmt=100 Xc.  common /dbchr/ fnam,iodata,dbfmt  character fnam*132,iodata*132,dbfmt(nfmt)*15 c.  common /dbnum/ iadd,idel,ieof,imod,isea,ifst(nfmt),ilst(nfmt) Lc.  character*132 inp 91 format(132a) xc.