compare.f

来自「实现热交换计算功能」· F 代码 · 共 23 行

      PROGRAM COMPARE
      
      IMPLICIT NONE
      
      INTEGER           I, I1, I2
      DOUBLE PRECISION  EXPL,IMPL
      
      
      OPEN(90,FILE='EXPL.OUT')
      OPEN(91,FILE='IMPL.OUT')
      OPEN(50,FILE='DIFF.OUT')      
      
      DO I = 1, (100*21)
      READ(90,*) I1, EXPL
      READ(91,*) I2, IMPL
      
      WRITE(50,'(I4,1X,F14.6)') I1, (EXPL-IMPL)
      
      ENDDO
      
      END