20010321-1.f

来自「俄罗斯高人Mamaich的Pocket gcc编译器（运行在PocketPC上）」· F 代码 · 共 9 行

# 1 "20010321-1.f"
      SUBROUTINE TWOEXP
# 1 "include/implicit.h" 1 3
      IMPLICIT DOUBLE PRECISION (A-H)
# 3 "20010321-1.f" 2 3
      LOGICAL ANTI
      ANTI = .FALSE.
      END