1#@!#!123s

: / opt / cloudlinux / venv / lib / python3.11 / site-packages / numpy / f2py / tests / src / crackfortran /

Filename : publicmod.f90

back

module foo
  public
  integer, private :: a
  public :: setA
contains
  subroutine setA(v)
    integer, intent(in) :: v
    a = v
  end subroutine setA
end module foo