c..declarations for logical units
c..
      integer      fil1,fil2,fil3,fil4,luin,luo,fil7,fil8,fil9,fil10,
     1             fil11,fil12,fil13,fil14,
     2             redwrt,clse,append,redold,binary,oldbin
      parameter   (fil1=1,   fil2=2,   fil3=3,   fil4=4,   luin=5, 
     1             luo=6,    fil7=7,   fil8=8,   fil9=9,   fil10=10,
     2             fil11=11, fil12=12, fil13=13, fil14=14,
     3             redwrt=13, clse=3, append=12, redold = 9, binary=10,
     4             oldbin=11)