tmplg-1

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

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

!HPF$ TEMPLATE :: tmpl1 (n1+1, n1+1)
!HPF$ TEMPLATE :: tmpl2 (n2+1, n2+1)
!HPF$ TEMPLATE :: tmpl3 (n3+1, n3+1)
!HPF$ TEMPLATE :: tmpl4 (n4+1, n4+1)
!HPF$ TEMPLATE :: tmpl5 (n5+1, n5+1)
!HPF$ TEMPLATE :: tmpl6 (n6+1, n6+1)
!HPF$ TEMPLATE :: tmpl7 (n7+1, n7+1)
!HPF$ TEMPLATE :: tmpl8 (n8+1, n8+1)
!HPF$ TEMPLATE :: tmpl9 (n9+1, n9+1)

!HPF$ DISTRIBUTE  (*, BLOCK)  ONTO  procs ::            &
!HPF$      tmpl1, tmpl2, tmpl3, tmpl4, tmpl5, tmpl6, tmpl7, tmpl8, tmpl9