[½»Á÷] ¡¾ÇóÖú¡¿ÇóÒ»¸ö´¦ÀíÊý¾ÝµÄС³ÌÐò¡¾ÒÑÍê½á¡¿ ÒÑÓÐ6È˲ÎÓë

C234567
      program main
C     
      character*80 fa_name, fb_name, fc_name, line
      real freq, strength_a, strength_b, percent
C
      write(*,'(a,$)') 'Please input the name of first file: '
      read(*,'(a)') fa_name
      write(*,'(a,$)') 'Please input the name of second file: '
      read(*,'(a)') fb_name
      write(*,'(a,$)') 'Please input the name of output file: '
      read(*,'(a)') fc_name
      write(*,'(a,$)') 'Please input the percent: '
      read(*,*) percent
      percent = percent / 100.0
C      
      open(1, file=fa_name,status='old')
      open(2, file=fb_name,status='old')
      open(3, file=fc_name,status='new')
C if there is no variable name in the first line, please comment the
C following two lines      
      read(1,*) line
      read(2,*) line
C      
5     read(1,*,end=10) freq, strength_a
10    read(2,*, end =20) freq, strength_b
      write(3,*) freq, strength_a * percent + strength_b * (1.-percent)
      goto 5
20    continue
      close(1)
      close(2)
      close(3)
      end