header.h90

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

      SUBROUTINE HEADER(IO)
!   ==================================================================
!   ===                                                            ===
!   ===                      Subset HPF version                    ===
!   ===                                                            ===
!   ==================================================================

      WRITE(IO,*)'  ================================================='
      WRITE(IO,*)'  ===                                           ==='
      WRITE(IO,*)'  ===   GENESIS Distributed Memory Benchmarks   ==='
      WRITE(IO,*)'  ===                                           ==='
      WRITE(IO,*)'  ===                   PDE1                    ==='
      WRITE(IO,*)'  ===                                           ==='
      WRITE(IO,*)'  ===   Program:   3-Dimensional Poisson Solver ==='
      WRITE(IO,*)'  ===              Using Red-Black Relaxation   ==='
      WRITE(IO,*)'  ===   Version:   Subset HPF                   ==='
      WRITE(IO,*)'  ===   Author:    Max Lemke                    ==='
      WRITE(IO,*)'  ===   SubsetHPF: Vladimir Getov               ==='
      WRITE(IO,*)'  ===   Update:    May 1993; Release: 2.2       ==='
      WRITE(IO,*)'  ===                                           ==='
      WRITE(IO,*)'  ================================================='
      WRITE(IO,*)

!     CALL SETDAT(IO)

      CALL SETDTL(IO)

      WRITE(IO,*)
      WRITE(IO,*)

      WRITE(6,*)
      WRITE(6,*)'The calculation proceeds ...Please, wait.'
      WRITE(6,*)

      END