| <- HREF="index.html" PREV | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search
PROGRAM two_triples
REAL a1(30, 40), a2(30, 40), b1(30, 40), b2(30, 40)
CHPF$ DISTRIBUTE a1(BLOCK, BLOCK)
CHPF$ ALIGN (:, :) WITH a1(:, :) :: a2, b1, b2
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
INTEGER dtx
INTEGER dtx0
INTEGER dtx1
CALL mimdinit(8002, 0, 4, 4, 10, 17, 'two_triples.f.F77')
CALL dd_partition(a2, 162, 0, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(11, 17, 'two_triples.f.F77')
CALL dd_partition(b2, 144, 0, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(11, 17, 'two_triples.f.F77')
CALL dd_partition(a1, 126, 0, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(11, 17, 'two_triples.f.F77')
CALL dd_partition(b1, 108, 0, 0, -1, 1, 30, 0, 1, 40)
CALL dd_partition_xchng(11, 17, 'two_triples.f.F77')
CALL dd_use_all(a1, 126, 1, 0, 0, 0, 1, 0, 0, 0)
CALL dd_use_all(b1, 108, 1, 0, 0, 0, 1, 0, 0, 0)
CALL dd_use_all_xchng(11, 17, 'two_triples.f.F77')
CALL init(a1, b1)
CALL dd_dstloop(10, 1, 39, 1, dtx, dtx0, dtx1, a2, 162, -11, 1, 1
. , 29, 3, 1, 1, 10)
CALL dd_use_by_dl(a1, 126, -11, 2, 1, 29, 3, 2, 1, 10)
CALL dd_set_by_dl(b2, 144, -11, 2, 1, 29, 3, 2, 1, 10)
CALL dd_preloop_xchng(13, 17, 'two_triples.f.F77', dtx, dtx0, dtx1
. )
DO a3 = dtx, dtx0, dtx1
DO a0 = 1, 29
a2(a0, a3) = a1(1 + a0, 1 + a3)
b2(1 + a0, 1 + a3) = b1(a0, a3)
ENDDO
ENDDO
CALL dd_postloop_xchng(19, 17, 'two_triples.f.F77')
CALL dd_use_all(a2, 162, 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_xchng(20, 17, 'two_triples.f.F77')
CALL use(a2, b2)
CALL mimdexit(21, 17, 'two_triples.f.F77', 999)
END
BLOCK DATA DD_BKDATA
integer sa_ind(0:8), da_ind(0:8)
integer dm_desc(0:1116)
common/dm_com/ sa_ind, da_ind, dm_desc
integer cl_dyn_ind, cl_save_ind
integer cl_desc(0:4)
common/cl_com/cl_dyn_ind, cl_save_ind, cl_desc
integer ad_dyn_ind, ad_save_ind, ad_desc(0:1288)
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, 116, 116, 116, 116, 116, 116, 116/
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/5*0/
data cl_dyn_ind/5/
data cl_save_ind/5/
data ad_dyn_ind/198/
data ad_save_ind/1270/
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,0, 0,4799, 4, 162/
data (ad_desc(i),i= 180, 185)/ 0,0, 0, 0, 7, 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(1135), cl(7), ad(1291), ta(2)
common /dm_com/ dm
common /cl_com/ cl
common /ad_com/ ad
common /ta_com/ ta
m4 = 1135
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