测试1111

hyb

2025-12-23 10f3a1daddfbc7fa3dd2069197d83e8b6ef19176

1
2
3
4
5
      REAL*8 FUNCTION FUNCFORTRANNAME(A,B)
      REAL*8 A, B
      FUNCFORTRANNAME = A + B
      RETURN
      END FUNCTION