[交流] 【求助】求一个处理数据的小程序【已完结】 已有6人参与

Originally posted by snoopyzhao at 2010-05-24 17:26:45:
从你的描述来看，你似乎要两个文件两个文件地匹配？是这样的吗？读完这两个文件，然后再读下面两个文件吗？

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