1#@!#!123s

: / opt / imh-python / lib / python3.9 / site-packages / numpy / f2py / tests / src / string /

Filename : gh24008.f

back

      SUBROUTINE GREET(NAME, GREETING)
      CHARACTER NAME*(*), GREETING*(*)
      CHARACTER*(50) MESSAGE

      MESSAGE = 'Hello, ' // NAME // ', ' // GREETING
c$$$      PRINT *, MESSAGE

      END SUBROUTINE GREET