| <- HREF="index.html" PREV | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search
PROGRAM three_assignments
REAL a1(0:0), a2(30, 40), b1(0:0), b2(30, 40), c1(0:0), c2(30, 40)
CHPF$ DISTRIBUTE a1(BLOCK, BLOCK)
CHPF$ ALIGN (:, :) WITH a1(:, :) :: a2, b1, b2, c1, c2
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, a4, a5, a6, a7
INTEGER dtx
INTEGER dtx0
INTEGER dtx1
INTEGER dtx2
INTEGER dtx3
INTEGER hi
INTEGER hi0
INTEGER hi1
INTEGER hi2
INTEGER hi3
INTEGER hi4
INTEGER hi5
INTEGER hi6
INTEGER hi7
CALL mimdinit(8002, 0, 4, 4, 10, 25, 'three_assignments_2.f.F77')
CALL dd_partition(b1, 198, 1, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(10, 25, 'three_assignments_2.f.F77')
CALL dd_partition(c1, 180, 1, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(10, 25, 'three_assignments_2.f.F77')
CALL dd_partition(a1, 162, 1, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(10, 25, 'three_assignments_2.f.F77')
CALL dd_partition(b2, 144, 0, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(10, 25, 'three_assignments_2.f.F77')
CALL dd_partition(c2, 126, 0, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(10, 25, 'three_assignments_2.f.F77')
CALL dd_partition(a2, 108, 0, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(10, 25, 'three_assignments_2.f.F77')
CALL dd_dstloop(10, 1, 40, 1, dtx, dtx0, dtx1, a1, 162, -11, 1, 1
. , 30, 3, 1, 1, 10)
dtx3=-1
CALL dl_mem_by_dl(a1, 162, 5, hi, -11, 1, 1, 30, hi0, 3, 1, 1, 10
. , hi1)
CALL dl_mem_by_dl(b1, 198, 5, hi2, -11, 1, 1, 30, hi3, 3, 1, 1, 10
. , hi4)
CALL dl_mem_by_dl(c1, 180, 5, hi5, -11, 1, 1, 30, hi6, 3, 1, 1, 10
. , hi7)
CALL dd_preloop_xchng(11, 25, 'three_assignments_2.f.F77', dtx,
. dtx0, dtx1)
CALL dl_modify(hi7, hi6, hi5, hi4, hi3, hi2, hi1, hi0, hi)
DO a3 = dtx, dtx0, dtx1
dtx3=dtx3+1
dtx2=-1
DO a0 = 1, 30
dtx2=dtx2+1
a2(a0, a3)=a1(hi+dtx2*hi0+dtx3*hi1)
b2(a0, a3)=b1(hi2+dtx2*hi3+dtx3*hi4)
c2(a0, a3)=c1(hi5+dtx2*hi6+dtx3*hi7)
ENDDO
ENDDO
CALL dd_postloop_xchng(18, 25, 'three_assignments_2.f.F77')
CALL dd_use_all(a2, 108, 1, 0, 0, 0, 1, 0, 0, 0)
CALL dd_use_all(b2, 144, 1, 0, 0, 0, 1, 0, 0, 0)
CALL dd_use_all(c2, 126, 1, 0, 0, 0, 1, 0, 0, 0)
CALL dd_use_all_xchng(19, 25, 'three_assignments_2.f.F77')
CALL use_them(a2, b2, c2)
CALL mimdexit(20, 25, 'three_assignments_2.f.F77', 999)
END
BLOCK DATA DD_BKDATA
integer sa_ind(0:8), da_ind(0:8)
integer dm_desc(0:1100)
common/dm_com/ sa_ind, da_ind, dm_desc
integer cl_dyn_ind, cl_save_ind
integer cl_desc(0:6)
common/cl_com/cl_dyn_ind, cl_save_ind, cl_desc
integer ad_dyn_ind, ad_save_ind, ad_desc(0:1306)
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, 100, 100, 100, 100, 100, 100, 100/
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/7*0/
data cl_dyn_ind/7/
data cl_save_ind/7/
data ad_dyn_ind/234/
data ad_save_ind/1288/
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,0, 0,4799, 1, 108/
data (ad_desc(i),i= 126, 131)/ 24,0, 0,4799, 2, 126/
data (ad_desc(i),i= 144, 149)/ 24,0, 0,4799, 3, 144/
data (ad_desc(i),i= 162, 167)/ 24,1, 0,4799, 4, 162/
data (ad_desc(i),i= 180, 185)/ 24,1, 0,4799, 5, 180/
data (ad_desc(i),i= 198, 203)/ 24,1, 0,4799, 6, 198/
data (ad_desc(i),i= 216, 221)/ 0,0, 0, 0, 9, 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(1119), cl(9), ad(1309), ta(2)
common /dm_com/ dm
common /cl_com/ cl
common /ad_com/ ad
common /ta_com/ ta
m4 = 1119
call dd_def_comc(dm,cl,ad,m1,m2,m3,m4,m5,ta)
end
| <- HREF="index.html" PREV | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search