tmpl-2

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

  INCLUDE  "procs.inc"       ! for processors 'procs'

!HPF$ TEMPLATE :: tmplc (n+1, n+1)
!HPF$ TEMPLATE :: tmplf (2*n+1, 2*n+1)

!HPF$ DISTRIBUTE  (BLOCK, BLOCK)  ONTO  procs :: tmplc, tmplf