| <- Prev | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search
XL High Performance Fortran for AIX, Version 01.01.0000.0000 --- two_triples.f 09/30/96 13:39:26
>>>>> OPTIONS SECTION <<<<<
*** Options In Effect ***
== On / Off Options ==
ESCAPE I4 OBJECT NOSAVE NOSTRICT
ZEROSIZE
== Options Of Integer Type ==
MAXMEM(-1) OPTIMIZE(3) SPILLSIZE(512)
== Options Of Character Type ==
ALIAS(STD,NOINTPTR) AUTODBL(NONE) DIRECTIVE(IBM*)
FLAG(L,L) FLOAT(MAF,FOLD,RSQRT,FLTINT)
FREE(F90) HALT(S) HOT()
HPF(PURECOMM,COMMONINIT)
IEEE(NEAR) INTSIZE(4) LANGLVL(90EXT)
REALSIZE(4) REPORT(HOTLIST,HPFLIST)
XFLAG() XLF77(LEADZERO,BLANKPAD)
>>>>> SOURCE SECTION <<<<<
** two_triples === End of Compilation 1 ===
>>>>> PARALLELIZATION AND LOOP TRANSFORMATION SECTION <<<<<
1585-102 *** HPF Parallelization Report ***
program two_triples()
integer*4 :: two_triples
pointer :: a1 ! => a1_45
real*4 :: a1_45(:,:)
pointer :: a2 ! => a2_46
real*4 :: a2_46(:,:)
pointer :: b1 ! => b1_47
real*4 :: b1_47(:,:)
pointer :: b2 ! => b2_48
real*4 :: b2_48(:,:)
integer*4 :: #ALLOCATEMP
integer*4 :: SSA_STACK_1
integer*4 :: i_5
integer*4 :: i_6
integer*4 :: i_7
integer*4 :: i_8
integer*4 :: i_9
save, integer*4 :: PGB_10(1:2)
save, integer*4 :: PID_11(1:2)
save, integer*4 :: PG_12
integer*4 :: B_13(1:4)
save, integer*4 :: D_14(1:4)
integer*4 :: iown_l_15
integer*4 :: iown_u_16
integer*4 :: iown_l_17
integer*4 :: iown_u_18
integer*4 :: Ax_19(1:2)
integer*4 :: A_20(1:6)
save, integer*4 :: init_flag_21
integer*4 :: SSA_STACK_22
integer*4 :: SSA_STACK_23
integer*4 :: msg_24
integer*4 :: PS_RAS_29(1:2)
integer*4 :: DS_SAS_30(1:90)
integer*4 :: PS_SAS_31(1:2)
integer*4 :: DS_RAS_32(1:90)
integer*4 :: PS_RAS_33(1:2)
integer*4 :: DS_SAS_34(1:90)
integer*4 :: PS_SAS_35(1:2)
integer*4 :: DS_RAS_36(1:90)
integer*4 :: PS_RAS_37(1:2)
integer*4 :: DS_SAS_38(1:90)
integer*4 :: PS_SAS_39(1:2)
integer*4 :: DS_RAS_40(1:90)
integer*4 :: PS_RAS_41(1:2)
integer*4 :: DS_SAS_42(1:90)
integer*4 :: PS_SAS_43(1:2)
integer*4 :: DS_RAS_44(1:90)
external :: two_triples
integer*4 :: two_triples
external :: __trap
external :: init
external :: use
external :: _xlhpfExit
external :: TRAP
external, integer*4 :: _xlhpf_get_pe_bounds_index
external :: _xlhpf_allocate
external :: _xlhpf_deallocate
external, integer*4 :: MIN0
external, integer*4 :: MAX0
external :: _xlhpf_send_section
external :: _xlhpf_nbreceive_section
external :: _xlhpf_waitforall
#ALLOCATEMP = 0
if ((init_flag_21 .eq. 0) .ne. 0) then
PG_12 = _xlhpf_get_pe_bounds_index(2,PGB_10,PID_11)
D_14(3) = ((40 + PGB_10(2)) - 1) / PGB_10(2)
D_14(4) = 0
D_14(1) = ((30 + PGB_10(1)) - 1) / PGB_10(1)
D_14(2) = 0
init_flag_21 = 1
end if
B_13(3) = 1
B_13(4) = 40
B_13(1) = 1
B_13(2) = 30
iown_l_15 = 1 + ((40 + PGB_10(2)) - 1) / PGB_10(2) * PID_11(2)
iown_u_16 = (((40 + PGB_10(2)) - 1) / PGB_10(2) + iown_l_15) - 1
iown_l_17 = 1 + ((30 + PGB_10(1)) - 1) / PGB_10(1) * PID_11(1)
iown_u_18 = (((30 + PGB_10(1)) - 1) / PGB_10(1) + iown_l_17) - 1
Ax_19(2) = 1
Ax_19(1) = 0
call _xlhpf_allocate(a1,4,2,9,PG_12,B_13,D_14,%val(0),Ax_19,2)
A_20(4) = 1
A_20(5) = 1
A_20(1) = 1
A_20(2) = 1
call _xlhpf_allocate(a2,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
call _xlhpf_allocate(b1,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
call _xlhpf_allocate(b2,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
call init(a1,b1)
C 1585-501 Original Source Line 9
if ((PID_11(2) .lt. PGB_10(2) - 1) .ne. 0) then
PS_SAS_31(1) = PID_11(1)
PS_SAS_31(2) = PID_11(2) - (-1)
DS_RAS_32(1) = MAX0(1,D_14(1) * PID_11(1) + 1)
DS_RAS_32(2) = MIN0(MIN0(((1 + D_14(1) * PS_SAS_31(1) + D_14(1)
&) - 1) - 1,29),MIN0(iown_u_18,29)) + 1
DS_RAS_32(3) = 1
DS_RAS_32(4) = MAX0(MAX0((1 + D_14(3) * PS_SAS_31(2)) - 1,1),io
&wn_l_15) + 1
DS_RAS_32(5) = MIN0(MIN0(((1 + D_14(3) * PS_SAS_31(2) + D_14(3)
&) - 1) - 1,39),MIN0(iown_u_16,39)) + 1
DS_RAS_32(6) = 1
call _xlhpf_nbreceive_section(a1,2,%val(0),DS_RAS_32,PG_12,PS_S
&AS_31,msg_24)
end if
C 1585-501 Original Source Line 9
if ((PID_11(2) .gt. 0) .ne. 0) then
PS_RAS_29(1) = PID_11(1)
PS_RAS_29(2) = PID_11(2) + (-1)
DS_SAS_30(1) = MAX0(1,D_14(1) * PID_11(1) + 1)
DS_SAS_30(2) = MIN0(MIN0(iown_u_18 - 1,29),MIN0((1 + D_14(1) *
&PS_RAS_29(1) + D_14(1)) - 1,29)) + 1
DS_SAS_30(3) = 1
DS_SAS_30(4) = MAX0(MAX0(iown_l_15 - 1,1),1 + D_14(3) * PS_RAS_
&29(2)) + 1
DS_SAS_30(5) = MIN0(MIN0(iown_u_16 - 1,39),MIN0((1 + D_14(3) *
&PS_RAS_29(2) + D_14(3)) - 1,39)) + 1
DS_SAS_30(6) = 1
call _xlhpf_send_section(a1,DS_SAS_30,PG_12,PS_RAS_29,a1)
end if
call _xlhpf_waitforall(1)
C 1585-501 Original Source Line 9
if ((PID_11(1) .lt. PGB_10(1) - 1) .ne. 0) then
PS_SAS_35(1) = PID_11(1) - (-1)
PS_SAS_35(2) = PID_11(2)
DS_RAS_36(1) = MAX0(MAX0((1 + D_14(1) * PS_SAS_35(1)) - 1,1),io
&wn_l_17) + 1
DS_RAS_36(2) = MIN0(MIN0(((1 + D_14(1) * PS_SAS_35(1) + D_14(1)
&) - 1) - 1,29),MIN0(iown_u_18,29)) + 1
DS_RAS_36(3) = 1
DS_RAS_36(4) = MAX0(1,D_14(3) * PID_11(2) + 1)
DS_RAS_36(5) = MIN0(40,D_14(3) * PID_11(2) + ((1 + D_14(3)) - 1
&)) + 2
DS_RAS_36(6) = 1
call _xlhpf_nbreceive_section(a1,2,%val(0),DS_RAS_36,PG_12,PS_S
&AS_35,msg_24)
end if
C 1585-501 Original Source Line 9
if ((PID_11(1) .gt. 0) .ne. 0) then
PS_RAS_33(1) = PID_11(1) + (-1)
PS_RAS_33(2) = PID_11(2)
DS_SAS_34(1) = MAX0(MAX0(iown_l_17 - 1,1),1 + D_14(1) * PS_RAS_
&33(1)) + 1
DS_SAS_34(2) = MIN0(MIN0(iown_u_18 - 1,29),MIN0((1 + D_14(1) *
&PS_RAS_33(1) + D_14(1)) - 1,29)) + 1
DS_SAS_34(3) = 1
DS_SAS_34(4) = MAX0(1,D_14(3) * PID_11(2) + 1)
DS_SAS_34(5) = MIN0(40,D_14(3) * PID_11(2) + ((1 + D_14(3)) - 1
&)) + 2
DS_SAS_34(6) = 1
call _xlhpf_send_section(a1,DS_SAS_34,PG_12,PS_RAS_33,a1)
end if
call _xlhpf_waitforall(1)
C 1585-501 Original Source Line 9
do i_5=iown_l_15,MIN0(iown_u_16,39),1
C 1585-501 Original Source Line 9
do i_6=iown_l_17,MIN0(iown_u_18,29),1
a2_46(i_6,i_5) = a1_45(i_6 + 1,i_5 + 1)
end do
end do
C 1585-501 Original Source Line 10
if ((PID_11(2) .gt. 0) .ne. 0) then
PS_SAS_39(1) = PID_11(1)
PS_SAS_39(2) = PID_11(2) - 1
DS_RAS_40(1) = MAX0(1 + D_14(1) * PS_SAS_39(1),MAX0(iown_l_17 -
& 1,1))
DS_RAS_40(2) = MIN0(30,D_14(1) * PID_11(1) + ((1 + D_14(1)) - 1
&))
DS_RAS_40(3) = 1
DS_RAS_40(4) = MAX0(1 + D_14(3) * PS_SAS_39(2),MAX0(iown_l_15 -
& 1,1))
DS_RAS_40(5) = MIN0(MIN0((1 + D_14(3) * PS_SAS_39(2) + D_14(3))
& - 1,39),MIN0(iown_u_16 - 1,39))
DS_RAS_40(6) = 1
call _xlhpf_nbreceive_section(b1,2,%val(0),DS_RAS_40,PG_12,PS_S
&AS_39,msg_24)
end if
C 1585-501 Original Source Line 10
if ((PID_11(2) .lt. PGB_10(2) - 1) .ne. 0) then
PS_RAS_37(1) = PID_11(1)
PS_RAS_37(2) = PID_11(2) + 1
DS_SAS_38(1) = MAX0(iown_l_17,MAX0((1 + D_14(1) * PS_RAS_37(1))
& - 1,1))
DS_SAS_38(2) = MIN0(30,D_14(1) * PID_11(1) + ((1 + D_14(1)) - 1
&))
DS_SAS_38(3) = 1
DS_SAS_38(4) = MAX0(iown_l_15,MAX0((1 + D_14(3) * PS_RAS_37(2))
& - 1,1))
DS_SAS_38(5) = MIN0(MIN0(iown_u_16,39),MIN0(((1 + D_14(3) * PS_
&RAS_37(2) + D_14(3)) - 1) - 1,39))
DS_SAS_38(6) = 1
call _xlhpf_send_section(b1,DS_SAS_38,PG_12,PS_RAS_37,b1)
end if
call _xlhpf_waitforall(1)
C 1585-501 Original Source Line 10
if ((PID_11(1) .gt. 0) .ne. 0) then
PS_SAS_43(1) = PID_11(1) - 1
PS_SAS_43(2) = PID_11(2)
DS_RAS_44(1) = MAX0(1 + D_14(1) * PS_SAS_43(1),MAX0(iown_l_17 -
& 1,1))
DS_RAS_44(2) = MIN0(MIN0((1 + D_14(1) * PS_SAS_43(1) + D_14(1))
& - 1,29),MIN0(iown_u_18 - 1,29))
DS_RAS_44(3) = 1
DS_RAS_44(4) = MAX0(1,D_14(3) * PID_11(2) + 1) - 2
DS_RAS_44(5) = MIN0(40,D_14(3) * PID_11(2) + ((1 + D_14(3)) - 1
&))
DS_RAS_44(6) = 1
call _xlhpf_nbreceive_section(b1,2,%val(0),DS_RAS_44,PG_12,PS_S
&AS_43,msg_24)
end if
C 1585-501 Original Source Line 10
if ((PID_11(1) .lt. PGB_10(1) - 1) .ne. 0) then
PS_RAS_41(1) = PID_11(1) + 1
PS_RAS_41(2) = PID_11(2)
DS_SAS_42(1) = MAX0(iown_l_17,MAX0((1 + D_14(1) * PS_RAS_41(1))
& - 1,1))
DS_SAS_42(2) = MIN0(MIN0(iown_u_18,29),MIN0(((1 + D_14(1) * PS_
&RAS_41(1) + D_14(1)) - 1) - 1,29))
DS_SAS_42(3) = 1
DS_SAS_42(4) = MAX0(1,D_14(3) * PID_11(2) + 1) - 2
DS_SAS_42(5) = MIN0(40,D_14(3) * PID_11(2) + ((1 + D_14(3)) - 1
&))
DS_SAS_42(6) = 1
call _xlhpf_send_section(b1,DS_SAS_42,PG_12,PS_RAS_41,b1)
end if
call _xlhpf_waitforall(1)
C 1585-501 Original Source Line 10
do i_5=MAX0(iown_l_15 - 1,1),MIN0(iown_u_16 - 1,39),1
C 1585-501 Original Source Line 10
do i_6=MAX0(iown_l_17 - 1,1),MIN0(iown_u_18 - 1,29),1
b2_48(i_6 + 1,i_5 + 1) = b1_47(i_6,i_5)
end do
end do
call use(a2,b2)
call _xlhpfExit(%val(0))
TRAP(3)
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
call _xlhpf_deallocate(b1)
call _xlhpf_deallocate(b2)
return
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
call _xlhpf_deallocate(b1)
call _xlhpf_deallocate(b2)
end
1585-103 *** Loop Transformation Report ***
program two_triples()
integer*4 :: two_triples
pointer :: a1 ! => a1_45
real*4 :: a1_45(:,:)
pointer :: a2 ! => a2_46
real*4 :: a2_46(:,:)
pointer :: b1 ! => b1_47
real*4 :: b1_47(:,:)
pointer :: b2 ! => b2_48
real*4 :: b2_48(:,:)
integer*4 :: #ALLOCATEMP
integer*4 :: SSA_STACK_1
integer*4 :: i_5
integer*4 :: i_6
integer*4 :: i_7
integer*4 :: i_8
integer*4 :: i_9
save, integer*4 :: PGB_10(1:2)
save, integer*4 :: PID_11(1:2)
save, integer*4 :: PG_12
integer*4 :: B_13(1:4)
save, integer*4 :: D_14(1:4)
integer*4 :: iown_l_15
integer*4 :: iown_u_16
integer*4 :: iown_l_17
integer*4 :: iown_u_18
integer*4 :: Ax_19(1:2)
integer*4 :: A_20(1:6)
save, integer*4 :: init_flag_21
integer*4 :: SSA_STACK_22
integer*4 :: SSA_STACK_23
integer*4 :: msg_24
integer*4 :: PS_RAS_29(1:2)
integer*4 :: DS_SAS_30(1:90)
integer*4 :: PS_SAS_31(1:2)
integer*4 :: DS_RAS_32(1:90)
integer*4 :: PS_RAS_33(1:2)
integer*4 :: DS_SAS_34(1:90)
integer*4 :: PS_SAS_35(1:2)
integer*4 :: DS_RAS_36(1:90)
integer*4 :: PS_RAS_37(1:2)
integer*4 :: DS_SAS_38(1:90)
integer*4 :: PS_SAS_39(1:2)
integer*4 :: DS_RAS_40(1:90)
integer*4 :: PS_RAS_41(1:2)
integer*4 :: DS_SAS_42(1:90)
integer*4 :: PS_SAS_43(1:2)
integer*4 :: DS_RAS_44(1:90)
integer*4 :: SSA_STACK_49
external :: two_triples
integer*4 :: two_triples
external :: __trap
external :: init
external :: use
external :: _xlhpfExit
external :: TRAP
external, integer*4 :: _xlhpf_get_pe_bounds_index
external :: _xlhpf_allocate
external :: _xlhpf_deallocate
external, integer*4 :: MIN0
external, integer*4 :: MAX0
external :: _xlhpf_send_section
external :: _xlhpf_nbreceive_section
external :: _xlhpf_waitforall
#ALLOCATEMP = 0
if ((init_flag_21 .eq. 0) .ne. 0) then
PG_12 = _xlhpf_get_pe_bounds_index(2,PGB_10,PID_11)
D_14(3) = ((40 + PGB_10(2)) - 1) / PGB_10(2)
D_14(4) = 0
D_14(1) = ((30 + PGB_10(1)) - 1) / PGB_10(1)
D_14(2) = 0
init_flag_21 = 1
end if
B_13(3) = 1
B_13(4) = 40
B_13(1) = 1
B_13(2) = 30
iown_l_15 = 1 + ((40 + PGB_10(2)) - 1) / PGB_10(2) * PID_11(2)
iown_u_16 = (((40 + PGB_10(2)) - 1) / PGB_10(2) + iown_l_15) - 1
iown_l_17 = 1 + ((30 + PGB_10(1)) - 1) / PGB_10(1) * PID_11(1)
iown_u_18 = (((30 + PGB_10(1)) - 1) / PGB_10(1) + iown_l_17) - 1
Ax_19(2) = 1
Ax_19(1) = 0
call _xlhpf_allocate(a1,4,2,9,PG_12,B_13,D_14,%val(0),Ax_19,2)
A_20(4) = 1
A_20(5) = 1
A_20(1) = 1
A_20(2) = 1
call _xlhpf_allocate(a2,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
call _xlhpf_allocate(b1,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
call _xlhpf_allocate(b2,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
call init(a1,b1)
C 1585-501 Original Source Line 9
if ((PID_11(2) .lt. PGB_10(2) - 1) .ne. 0) then
PS_SAS_31(1) = PID_11(1)
PS_SAS_31(2) = PID_11(2) - (-1)
DS_RAS_32(1) = MAX0(1,D_14(1) * PID_11(1) + 1)
DS_RAS_32(2) = MIN0(MIN0(((1 + D_14(1) * PS_SAS_31(1) + D_14(1)
&) - 1) - 1,29),MIN0(iown_u_18,29)) + 1
DS_RAS_32(3) = 1
DS_RAS_32(4) = MAX0(MAX0((1 + D_14(3) * PS_SAS_31(2)) - 1,1),io
&wn_l_15) + 1
DS_RAS_32(5) = MIN0(MIN0(((1 + D_14(3) * PS_SAS_31(2) + D_14(3)
&) - 1) - 1,39),MIN0(iown_u_16,39)) + 1
DS_RAS_32(6) = 1
call _xlhpf_nbreceive_section(a1,2,%val(0),DS_RAS_32,PG_12,PS_S
&AS_31,msg_24)
end if
C 1585-501 Original Source Line 9
if ((PID_11(2) .gt. 0) .ne. 0) then
PS_RAS_29(1) = PID_11(1)
PS_RAS_29(2) = PID_11(2) + (-1)
DS_SAS_30(1) = MAX0(1,D_14(1) * PID_11(1) + 1)
DS_SAS_30(2) = MIN0(MIN0(iown_u_18 - 1,29),MIN0((1 + D_14(1) *
&PS_RAS_29(1) + D_14(1)) - 1,29)) + 1
DS_SAS_30(3) = 1
DS_SAS_30(4) = MAX0(MAX0(iown_l_15 - 1,1),1 + D_14(3) * PS_RAS_
&29(2)) + 1
DS_SAS_30(5) = MIN0(MIN0(iown_u_16 - 1,39),MIN0((1 + D_14(3) *
&PS_RAS_29(2) + D_14(3)) - 1,39)) + 1
DS_SAS_30(6) = 1
call _xlhpf_send_section(a1,DS_SAS_30,PG_12,PS_RAS_29,a1)
end if
call _xlhpf_waitforall(1)
C 1585-501 Original Source Line 9
if ((PID_11(1) .lt. PGB_10(1) - 1) .ne. 0) then
PS_SAS_35(1) = PID_11(1) - (-1)
PS_SAS_35(2) = PID_11(2)
DS_RAS_36(1) = MAX0(MAX0((1 + D_14(1) * PS_SAS_35(1)) - 1,1),io
&wn_l_17) + 1
DS_RAS_36(2) = MIN0(MIN0(((1 + D_14(1) * PS_SAS_35(1) + D_14(1)
&) - 1) - 1,29),MIN0(iown_u_18,29)) + 1
DS_RAS_36(3) = 1
DS_RAS_36(4) = MAX0(1,D_14(3) * PID_11(2) + 1)
DS_RAS_36(5) = MIN0(40,D_14(3) * PID_11(2) + ((1 + D_14(3)) - 1
&)) + 2
DS_RAS_36(6) = 1
call _xlhpf_nbreceive_section(a1,2,%val(0),DS_RAS_36,PG_12,PS_S
&AS_35,msg_24)
end if
C 1585-501 Original Source Line 9
if ((PID_11(1) .gt. 0) .ne. 0) then
PS_RAS_33(1) = PID_11(1) + (-1)
PS_RAS_33(2) = PID_11(2)
DS_SAS_34(1) = MAX0(MAX0(iown_l_17 - 1,1),1 + D_14(1) * PS_RAS_
&33(1)) + 1
DS_SAS_34(2) = MIN0(MIN0(iown_u_18 - 1,29),MIN0((1 + D_14(1) *
&PS_RAS_33(1) + D_14(1)) - 1,29)) + 1
DS_SAS_34(3) = 1
DS_SAS_34(4) = MAX0(1,D_14(3) * PID_11(2) + 1)
DS_SAS_34(5) = MIN0(40,D_14(3) * PID_11(2) + ((1 + D_14(3)) - 1
&)) + 2
DS_SAS_34(6) = 1
call _xlhpf_send_section(a1,DS_SAS_34,PG_12,PS_RAS_33,a1)
end if
call _xlhpf_waitforall(1)
C 1585-501 Original Source Line 9
do i_5=iown_l_15,MIN0(iown_u_16,39),1
C 1585-501 Original Source Line 9
do i_6=iown_l_17,MIN0(iown_u_18,29),1
a2_46(i_6,i_5) = a1_45(i_6 + 1,i_5 + 1)
end do
end do
C 1585-501 Original Source Line 10
if ((PID_11(2) .gt. 0) .ne. 0) then
PS_SAS_39(1) = PID_11(1)
PS_SAS_39(2) = PID_11(2) - 1
DS_RAS_40(1) = MAX0(1 + D_14(1) * PS_SAS_39(1),MAX0(iown_l_17 -
& 1,1))
DS_RAS_40(2) = MIN0(30,D_14(1) * PID_11(1) + ((1 + D_14(1)) - 1
&))
DS_RAS_40(3) = 1
DS_RAS_40(4) = MAX0(1 + D_14(3) * PS_SAS_39(2),MAX0(iown_l_15 -
& 1,1))
DS_RAS_40(5) = MIN0(MIN0((1 + D_14(3) * PS_SAS_39(2) + D_14(3))
& - 1,39),MIN0(iown_u_16 - 1,39))
DS_RAS_40(6) = 1
call _xlhpf_nbreceive_section(b1,2,%val(0),DS_RAS_40,PG_12,PS_S
&AS_39,msg_24)
end if
C 1585-501 Original Source Line 10
if ((PID_11(2) .lt. PGB_10(2) - 1) .ne. 0) then
PS_RAS_37(1) = PID_11(1)
PS_RAS_37(2) = PID_11(2) + 1
DS_SAS_38(1) = MAX0(iown_l_17,MAX0((1 + D_14(1) * PS_RAS_37(1))
& - 1,1))
DS_SAS_38(2) = MIN0(30,D_14(1) * PID_11(1) + ((1 + D_14(1)) - 1
&))
DS_SAS_38(3) = 1
DS_SAS_38(4) = MAX0(iown_l_15,MAX0((1 + D_14(3) * PS_RAS_37(2))
& - 1,1))
DS_SAS_38(5) = MIN0(MIN0(iown_u_16,39),MIN0(((1 + D_14(3) * PS_
&RAS_37(2) + D_14(3)) - 1) - 1,39))
DS_SAS_38(6) = 1
call _xlhpf_send_section(b1,DS_SAS_38,PG_12,PS_RAS_37,b1)
end if
call _xlhpf_waitforall(1)
C 1585-501 Original Source Line 10
if ((PID_11(1) .gt. 0) .ne. 0) then
PS_SAS_43(1) = PID_11(1) - 1
PS_SAS_43(2) = PID_11(2)
DS_RAS_44(1) = MAX0(1 + D_14(1) * PS_SAS_43(1),MAX0(iown_l_17 -
& 1,1))
DS_RAS_44(2) = MIN0(MIN0((1 + D_14(1) * PS_SAS_43(1) + D_14(1))
& - 1,29),MIN0(iown_u_18 - 1,29))
DS_RAS_44(3) = 1
DS_RAS_44(4) = MAX0(1,D_14(3) * PID_11(2) + 1) - 2
DS_RAS_44(5) = MIN0(40,D_14(3) * PID_11(2) + ((1 + D_14(3)) - 1
&))
DS_RAS_44(6) = 1
call _xlhpf_nbreceive_section(b1,2,%val(0),DS_RAS_44,PG_12,PS_S
&AS_43,msg_24)
end if
C 1585-501 Original Source Line 10
if ((PID_11(1) .lt. PGB_10(1) - 1) .ne. 0) then
PS_RAS_41(1) = PID_11(1) + 1
PS_RAS_41(2) = PID_11(2)
DS_SAS_42(1) = MAX0(iown_l_17,MAX0((1 + D_14(1) * PS_RAS_41(1))
& - 1,1))
DS_SAS_42(2) = MIN0(MIN0(iown_u_18,29),MIN0(((1 + D_14(1) * PS_
&RAS_41(1) + D_14(1)) - 1) - 1,29))
DS_SAS_42(3) = 1
DS_SAS_42(4) = MAX0(1,D_14(3) * PID_11(2) + 1) - 2
DS_SAS_42(5) = MIN0(40,D_14(3) * PID_11(2) + ((1 + D_14(3)) - 1
&))
DS_SAS_42(6) = 1
call _xlhpf_send_section(b1,DS_SAS_42,PG_12,PS_RAS_41,b1)
end if
call _xlhpf_waitforall(1)
C 1585-501 Original Source Line 10
do i_5=MAX0(iown_l_15 - 1,1),MIN0(iown_u_16 - 1,39),1
C 1585-501 Original Source Line 10
do i_6=MAX0(iown_l_17 - 1,1),MIN0(iown_u_18 - 1,29),1
b2_48(i_6 + 1,i_5 + 1) = b1_47(i_6,i_5)
end do
end do
call use(a2,b2)
call _xlhpfExit(%val(0))
TRAP(3)
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
call _xlhpf_deallocate(b1)
call _xlhpf_deallocate(b2)
return
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
call _xlhpf_deallocate(b1)
call _xlhpf_deallocate(b2)
end
>>>>> FILE TABLE SECTION <<<<<
FILE CREATION FROM
FILE NO FILENAME DATE TIME FILE LINE
0 two_triples.f 08/16/96 14:41:24
>>>>> COMPILATION EPILOGUE SECTION <<<<<
FORTRAN Summary of Diagnosed Conditions
TOTAL UNRECOVERABLE SEVERE ERROR WARNING INFORMATIONAL
(U) (S) (E) (W) (I)
0 0 0 0 0 0
Source records read....................................... 14
1501-510 Compilation successful for file two_triples.f.
1501-543 Object file created.
| <- Prev | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search