13060.f

来自「linux下的gcc编译器」· F 代码 · 共 14 行

      subroutine geo2()
      implicit none

      integer ms,n,ne(2)

      ne(1) = 1
      ne(2) = 2
      ms = 1

      call call_me(ne(1)*ne(1))

      n = ne(ms)
      end