| <- HREF="index.html" PREV | Index | Next -> |
NHSE Review^TM: Comments · Archive · Search

      PROGRAM sum_prog
      REAL a1(0:0), a2(0:0)
CHPF$ DISTRIBUTE a1(BLOCK, BLOCK)
CHPF$ ALIGN (:, :) WITH a1(:, :) :: a2
      INTEGER apr_opt_int_arg
      CHARACTER apr_opt_char_arg
      COMMON /apr_res1/apr_opt_int_arg/apr_res2/apr_opt_char_arg
      INTEGER a, a0, a3

      INTEGER dtx
      INTEGER dtx0
      INTEGER dtx1
      INTEGER dtx2
      INTEGER dtx3
      INTEGER dd_tdesc
      INTEGER hi
      INTEGER hi0
      INTEGER hi1
      INTEGER hi2
      INTEGER hi3
      INTEGER hi4

      CALL mimdinit(8002, 0, 4, 4, 9, 16, 'sum_prog_2.f.F77')
      CALL dd_partition(a2, 126, 1, 0, -1, 1, 30, 0, 1, 40)
      CALL dd_partition_xchng(10, 16, 'sum_prog_2.f.F77')
      CALL dd_partition(a1, 108, 1, 0, -1, 1, 30, 0, 1, 40)
      CALL dd_partition_xchng(10, 16, 'sum_prog_2.f.F77')

      s = 0.0
      CALL dd_dstloop(10, 1, 40, 1, dtx, dtx0, dtx1, a1, 108, -11, 1, 1
     .    , 30, 3, 1, 1, 10)
      dtx3=-1
      CALL dd_def_red(s, dd_tdesc(s, 162, 12), 2, 1)
      CALL dl_mem_by_dl(a1, 108, 5, hi, -11, 1, 1, 30, hi0, 3, 1, 1, 10
     .    , hi1)
      CALL dl_mem_by_dl(a2, 126, 5, hi2, -11, 1, 1, 30, hi3, 3, 1, 1, 10
     .    , hi4)
      CALL dd_preloop_xchng(11, 16, 'sum_prog_2.f.F77', dtx, dtx0, dtx1
     .    , s)
      CALL dl_modify(hi4, hi3, hi2, hi1, hi0, hi)
      DO a3 = dtx, dtx0, dtx1
      dtx3=dtx3+1
      dtx2=-1
        DO a0 = 1, 30
      dtx2=dtx2+1
      s=s+a1(hi+dtx2*hi0+dtx3*hi1)+a2(hi2+dtx2*hi3+dtx3*hi4)
        ENDDO
      ENDDO
      CALL dd_postloop_xchng(16, 16, 'sum_prog_2.f.F77', s)


      CALL use_it(s)

      CALL mimdexit(18, 16, 'sum_prog_2.f.F77', 999)
      END
      BLOCK DATA DD_BKDATA
      integer sa_ind(0:8), da_ind(0:8)
      integer dm_desc(0:1052)
      common/dm_com/ sa_ind, da_ind, dm_desc
      integer cl_dyn_ind, cl_save_ind
      integer cl_desc(0:2)
      common/cl_com/cl_dyn_ind, cl_save_ind, cl_desc
      integer ad_dyn_ind, ad_save_ind, ad_desc(0:1180)
      common/ad_com/ad_dyn_ind, ad_save_ind, ad_desc
      integer ta_desc, ta_dim
      common/ta_com/ta_desc, ta_dim
      data sa_ind/   0,  24,  24,  36,  36,  36,  36,  36,  36/
      data da_ind/  36,  36,  52,  52,  52,  52,  52,  52,  52/
      data (dm_desc(i),i=   0,   3)/0,1,32,   0/
      data (dm_desc(i),i=   4,   7)/0,1,16,   0/
      data (dm_desc(i),i=   8,  11)/0,1, 8,   0/
      data (dm_desc(i),i=  12,  15)/0,1, 4,   0/
      data (dm_desc(i),i=  16,  19)/0,1, 2,   0/
      data (dm_desc(i),i=  20,  23)/0,1, 1,   0/
      data (dm_desc(i),i=  24,  35)/2,1, 4, -31,   1,  30,  30,   1
     + ,   1,  40,  40,  30/
      data cl_desc/3*0/
      data cl_dyn_ind/3/
      data cl_save_ind/3/
      data ad_dyn_ind/162/
      data ad_save_ind/1162/
      data (ad_desc(i),i=   0,   5)/ 20,0,   0,   0,  0,   0/
      data (ad_desc(i),i=  18,  23)/ 16,0,   0,   0,  0,   0/
      data (ad_desc(i),i=  36,  41)/ 12,0,   0,   0,  0,   0/
      data (ad_desc(i),i=  54,  59)/  8,0,   0,   0,  0,   0/
      data (ad_desc(i),i=  72,  77)/  4,0,   0,   0,  0,   0/
      data (ad_desc(i),i=  90,  95)/  0,0,   0,   0,  0,   0/
      data (ad_desc(i),i= 108, 113)/ 24,1,   0,4799,  1, 108/
      data (ad_desc(i),i= 126, 131)/ 24,1,   0,4799,  2, 126/
      data (ad_desc(i),i= 144, 149)/  0,0,   0,   0,  5,   0/
      data ta_desc/0/
      data ta_dim/0/
      end
      subroutine dd_def_com(m1,m2,m3,m4,m5)
      integer m1,m2,m3,m4,m5
      integer dm(1071), cl(5), ad(1183), ta(2)
      common /dm_com/ dm
      common /cl_com/ cl
      common /ad_com/ ad
      common /ta_com/ ta
      m4 = 1071
      call dd_def_comc(dm,cl,ad,m1,m2,m3,m4,m5,ta)
      end

| <- HREF="index.html" PREV | Index | Next -> |
NHSE Review^TM: Comments · Archive · Search