Skip to content

serial_hello.f

1
2
3
4
5
6
7
8
C  Fortran 77

      PROGRAM HELLO
      CHARACTER*30 NAME
*     Get run-host name.
      CALL GETENV("HOST",NAME)
      PRINT *, 'Runhost:', NAME, '   hello, world'
      END

Back to the Compiling Serial Programs section