setdtl.h90

来自「shpf 1.9一个并行编译器」· H90 代码 · 共 20 行

      SUBROUTINE SETDTL (UNIT)
!   ==================================================================
!   ===                                                            ===
!   ===    This subroutine writes information to output heading    ===
!   ===                     for benchmark run                      ===
!   ===                                                            ===
!   ===               ATTENTION - non-portable stuff               ===
!   ===       (fill in the details of your target machine)         ===
!   ===                                                            ===
!   ===                       vsg - May, 92                        ===
!   ==================================================================

      INTEGER UNIT

      WRITE(UNIT,*)'   Run on a RISC system/6000 250'
      WRITE(UNIT,*)'   Compiler version :Southampton HPF, beta release'
      WRITE(UNIT,*)'   Benchmarker was Bryan Carpenter'

      END