| <- Prev | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search
XL High Performance Fortran for AIX, Version 01.01.0000.0000 --- sum_prog.f 08/19/96 12:12:47
>>>>> OPTIONS SECTION <<<<<
*** Options In Effect ***
== On / Off Options ==
ESCAPE I4 OBJECT NOSAVE ZEROSIZE
== Options Of Integer Type ==
MAXMEM(2048) SPILLSIZE(512)
== Options Of Character Type ==
ALIAS(STD,NOINTPTR) AUTODBL(NONE) DIRECTIVE(IBM*)
FLAG(L,L) FLOAT(MAF,FOLD) 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 <<<<<
** sum_prog === End of Compilation 1 ===
>>>>> PARALLELIZATION AND LOOP TRANSFORMATION SECTION <<<<<
1585-102 *** HPF Parallelization Report ***
program sum_prog()
integer*4 :: sum_prog
pointer :: a1 ! => a1_34
real*4 :: a1_34(:,:)
pointer :: a2 ! => a2_35
real*4 :: a2_35(:,:)
real*4 :: s
integer*4 :: #ALLOCATEMP
integer*4 :: SSA_STACK_4
integer*4 :: i_8
integer*4 :: i_9
integer*4 :: i_10
integer*4 :: i_11
integer*4 :: i_12
save, integer*4 :: PGB_13(1:2)
save, integer*4 :: PID_14(1:2)
save, integer*4 :: PG_15
integer*4 :: B_16(1:4)
save, integer*4 :: D_17(1:4)
integer*4 :: iown_l_18
integer*4 :: iown_u_19
integer*4 :: iown_l_20
integer*4 :: iown_u_21
integer*4 :: Ax_22(1:2)
integer*4 :: A_23(1:6)
save, integer*4 :: init_flag_24
integer*4 :: SSA_STACK_25
integer*4 :: SSA_STACK_26
integer*4 :: msg_27
real*4 :: SCALAR_28
integer*4 :: Recv_index_31(1:2)
integer*4 :: Send_index_32(1:2)
integer*4 :: DS_SAS_33(1:90)
external :: sum_prog
integer*4 :: sum_prog
external :: __sum
real*4 :: __sum
external :: __ldatemp
integer*4 :: __ldatemp
external :: __supplyoptarg
integer*4 :: __supplyoptarg
external :: SUM
external :: SUPPLY_OPT_ARG
external, integer*4 :: _xlhpf_get_pe_bounds_index
external :: _xlhpf_allocate
external :: _xlhpf_deallocate
external, integer*4 :: MIN0
external :: _xlhpf_reduce_sum
#ALLOCATEMP = 0
if ((init_flag_24 .eq. 0) .ne. 0) then
PG_15 = _xlhpf_get_pe_bounds_index(2,PGB_13,PID_14)
D_17(3) = ((40 + PGB_13(2)) - 1) / PGB_13(2)
D_17(4) = 0
D_17(1) = ((30 + PGB_13(1)) - 1) / PGB_13(1)
D_17(2) = 0
init_flag_24 = 1
end if
B_16(3) = 1
B_16(4) = 40
B_16(1) = 1
B_16(2) = 30
iown_l_18 = 1 + ((40 + PGB_13(2)) - 1) / PGB_13(2) * PID_14(2)
iown_u_19 = (((40 + PGB_13(2)) - 1) / PGB_13(2) + iown_l_18) - 1
iown_l_20 = 1 + ((30 + PGB_13(1)) - 1) / PGB_13(1) * PID_14(1)
iown_u_21 = (((30 + PGB_13(1)) - 1) / PGB_13(1) + iown_l_20) - 1
Ax_22(2) = 1
Ax_22(1) = 0
call _xlhpf_allocate(a1,4,2,9,PG_15,B_16,D_17,%val(0),Ax_22,2)
A_23(4) = 1
A_23(5) = 1
A_23(1) = 1
A_23(2) = 1
call _xlhpf_allocate(a2,4,2,9,PG_15,B_16,D_17,A_23,Ax_22,2)
s = 0.
SCALAR_28 = 0.
C 1585-501 Original Source Line 6
do i_8=iown_l_18,MIN0(iown_u_19,40),1
C 1585-501 Original Source Line 6
do i_9=iown_l_20,MIN0(iown_u_21,30),1
SCALAR_28 = SCALAR_28 + (a1_34(i_9,i_8) + a2_35(i_9,i_8))
end do
end do
C 1585-501 Original Source Line 6
if ((.true. .and. (1)) .ne. 0) then
Recv_index_31(1) = (-2)
Recv_index_31(2) = (-2)
Send_index_32(1) = 0
Send_index_32(2) = 1
DS_SAS_33(1) = 0
DS_SAS_33(2) = MIN0(29 / D_17(1),PGB_13(1) - 1)
DS_SAS_33(3) = 1
DS_SAS_33(4) = 0
DS_SAS_33(5) = MIN0(39 / D_17(3),PGB_13(2) - 1)
DS_SAS_33(6) = 1
call _xlhpf_reduce_sum(9,SCALAR_28,s,PG_15,2,Send_index_32,DS_S
&AS_33,Recv_index_31)
end if
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
return
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
end
1585-103 *** Loop Transformation Report ***
program sum_prog()
integer*4 :: sum_prog
pointer :: a1 ! => a1_34
real*4 :: a1_34(:,:)
pointer :: a2 ! => a2_35
real*4 :: a2_35(:,:)
real*4 :: s
integer*4 :: #ALLOCATEMP
integer*4 :: SSA_STACK_4
integer*4 :: i_8
integer*4 :: i_9
integer*4 :: i_10
integer*4 :: i_11
integer*4 :: i_12
save, integer*4 :: PGB_13(1:2)
save, integer*4 :: PID_14(1:2)
save, integer*4 :: PG_15
integer*4 :: B_16(1:4)
save, integer*4 :: D_17(1:4)
integer*4 :: iown_l_18
integer*4 :: iown_u_19
integer*4 :: iown_l_20
integer*4 :: iown_u_21
integer*4 :: Ax_22(1:2)
integer*4 :: A_23(1:6)
save, integer*4 :: init_flag_24
integer*4 :: SSA_STACK_25
integer*4 :: SSA_STACK_26
integer*4 :: msg_27
real*4 :: SCALAR_28
integer*4 :: Recv_index_31(1:2)
integer*4 :: Send_index_32(1:2)
integer*4 :: DS_SAS_33(1:90)
integer*4 :: SSA_STACK_36
integer*4 :: SSA_STACK_37
integer*4 :: SSA_STACK_38
real*4 :: ScRed_39
external :: sum_prog
integer*4 :: sum_prog
external :: __sum
real*4 :: __sum
external :: __ldatemp
integer*4 :: __ldatemp
external :: __supplyoptarg
integer*4 :: __supplyoptarg
external :: SUM
external :: SUPPLY_OPT_ARG
external, integer*4 :: _xlhpf_get_pe_bounds_index
external :: _xlhpf_allocate
external :: _xlhpf_deallocate
external, integer*4 :: MIN0
external :: _xlhpf_reduce_sum
#ALLOCATEMP = 0
if ((init_flag_24 .eq. 0) .ne. 0) then
PG_15 = _xlhpf_get_pe_bounds_index(2,PGB_13,PID_14)
D_17(3) = ((40 + PGB_13(2)) - 1) / PGB_13(2)
D_17(4) = 0
D_17(1) = ((30 + PGB_13(1)) - 1) / PGB_13(1)
D_17(2) = 0
init_flag_24 = 1
end if
B_16(3) = 1
B_16(4) = 40
B_16(1) = 1
B_16(2) = 30
iown_l_18 = 1 + ((40 + PGB_13(2)) - 1) / PGB_13(2) * PID_14(2)
iown_u_19 = (((40 + PGB_13(2)) - 1) / PGB_13(2) + iown_l_18) - 1
iown_l_20 = 1 + ((30 + PGB_13(1)) - 1) / PGB_13(1) * PID_14(1)
iown_u_21 = (((30 + PGB_13(1)) - 1) / PGB_13(1) + iown_l_20) - 1
Ax_22(2) = 1
Ax_22(1) = 0
call _xlhpf_allocate(a1,4,2,9,PG_15,B_16,D_17,%val(0),Ax_22,2)
A_23(4) = 1
A_23(5) = 1
A_23(1) = 1
A_23(2) = 1
call _xlhpf_allocate(a2,4,2,9,PG_15,B_16,D_17,A_23,Ax_22,2)
s = 0.
SCALAR_28 = 0.
C 1585-501 Original Source Line 6
do i_8=iown_l_18,MIN0(iown_u_19,40),1
C 1585-501 Original Source Line 6
do i_9=iown_l_20,MIN0(iown_u_21,30),1
SCALAR_28 = SCALAR_28 + (a1_34(i_9,i_8) + a2_35(i_9,i_8))
end do
end do
Recv_index_31(1) = (-2)
Recv_index_31(2) = (-2)
Send_index_32(1) = 0
Send_index_32(2) = 1
DS_SAS_33(1) = 0
DS_SAS_33(2) = MIN0(29 / D_17(1),PGB_13(1) - 1)
DS_SAS_33(3) = 1
DS_SAS_33(4) = 0
DS_SAS_33(5) = MIN0(39 / D_17(3),PGB_13(2) - 1)
DS_SAS_33(6) = 1
call _xlhpf_reduce_sum(9,SCALAR_28,s,PG_15,2,Send_index_32,DS_SAS
&_33,Recv_index_31)
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
return
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
end
>>>>> FILE TABLE SECTION <<<<<
FILE CREATION FROM
FILE NO FILENAME DATE TIME FILE LINE
0 sum_prog.f 08/16/96 15:26:23
>>>>> 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....................................... 8
1501-510 Compilation successful for file sum_prog.f.
1501-543 Object file created.
| <- Prev | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search