PROGRAM DFINTERP
      integer*2 kap1(21,56,12),kap2(21,56,12),kap3(21,56,12)
      DIMENSION STEPS(12),ISTEPS(12)
      read *,WT1,WT2
      PRINT *,WT1,WT2
      OPEN(UNIT=1,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED,
     1 RECORDTYPE='FIXED',RECL=7056)
      OPEN(UNIT=2,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED,
     1 RECORDTYPE='FIXED',RECL=7056)
      OPEN(UNIT=3,FORM='UNFORMATTED',STATUS='NEW',
     1 RECORDTYPE='FIXED',RECL=7056)
      DO 25 NU=1,10000
      READ(1,END=55)KAP1
      READ(2)KAP2
      DO 10 IP=1,21
      DO 10 IT=1,56
      DO 10 ISTEP=1,12
   10 KAP3(IP,IT,ISTEP)=WT1*KAP1(IP,IT,ISTEP)+WT2*KAP2(IP,IT,ISTEP) 
      print *,nu
      WRITE(3)KAP3
   25 CONTINUE
   55 CALL EXIT
      END