| <- HREF="index.html" PREV | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search
XL High Performance Fortran for AIX, Version 01.01.0000.0000 --- three_assignments_2.f 12/31/96 19:48:14
>>>>> OPTIONS SECTION <<<<< HPF(PURECOMM,COMMONINIT) TYPE="=" FREE(F90) REALSIZE(4) SPILLSIZE(512)="=" INTSIZE(4) OPTIONS AUTODBL(NONE) CHARACTER HALT(S) INTEGER FLAG(L,L) ALIAS(STD,NOINTPTR) MAXMEM(-1) REPORT(HOTLIST,HPFLIST) OFF ZEROSIZE="=" HOT() I4 XFLAG() XLF77(LEADZERO,BLANKPAD) NOSAVE EFFECT / IEEE(NEAR) ESCAPE FLOAT(MAF,FOLD,RSQRT,FLTINT) DIRECTIVE(IBM*) OF OPTIMIZE(3) NOSTRICT IN OBJECT LANGLVL(90EXT) ON ***="=">>>>> SOURCE SECTION <<<<< THREE_ASSIGNMENTS="=End" ** 1="=" OF COMPILATION>>>>> PARALLELIZATION AND LOOP TRANSFORMATION SECTION <<<<< THREE_ASSIGNMENTS PARALLELIZATION A1 1585-102 THREE_ASSIGNMENTS() PROGRAM REPORT HPF POINTER !="" INTEGER*4 :: ***> a1_27
real*4 :: a1_27(:,:)
pointer :: a2 ! => a2_28
real*4 :: a2_28(:,:)
pointer :: b1 ! => b1_29
real*4 :: b1_29(:,:)
pointer :: b2 ! => b2_30
real*4 :: b2_30(:,:)
pointer :: c1 ! => c1_31
real*4 :: c1_31(:,:)
pointer :: c2 ! => c2_32
real*4 :: c2_32(:,:)
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
external :: three_assignments
integer*4 :: three_assignments
external :: __trap
external :: use_them
external :: _xlhpfExit
external :: TRAP
external, integer*4 :: _xlhpf_get_pe_bounds_index
external :: _xlhpf_allocate
external :: _xlhpf_deallocate
external, integer*4 :: MIN0
#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 _xlhpf_allocate(c1,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
call _xlhpf_allocate(c2,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
C 1585-501 Original Source Line 6
do i_5=iown_l_15,MIN0(iown_u_16,40),1
C 1585-501 Original Source Line 6
do i_6=iown_l_17,MIN0(iown_u_18,30),1
a2_28(i_6,i_5) = a1_27(i_6,i_5)
end do
end do
C 1585-501 Original Source Line 7
do i_5=iown_l_15,MIN0(iown_u_16,40),1
C 1585-501 Original Source Line 7
do i_6=iown_l_17,MIN0(iown_u_18,30),1
b2_30(i_6,i_5) = b1_29(i_6,i_5)
end do
end do
C 1585-501 Original Source Line 8
do i_5=iown_l_15,MIN0(iown_u_16,40),1
C 1585-501 Original Source Line 8
do i_6=iown_l_17,MIN0(iown_u_18,30),1
c2_32(i_6,i_5) = c1_31(i_6,i_5)
end do
end do
call use_them(a2,b2,c2)
call _xlhpfExit(%val(0))
TRAP(3)
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
call _xlhpf_deallocate(b1)
call _xlhpf_deallocate(b2)
call _xlhpf_deallocate(c1)
call _xlhpf_deallocate(c2)
return
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
call _xlhpf_deallocate(b1)
call _xlhpf_deallocate(b2)
call _xlhpf_deallocate(c1)
call _xlhpf_deallocate(c2)
end
1585-103 *** Loop Transformation Report ***
program three_assignments()
integer*4 :: three_assignments
pointer :: a1 ! => a1_27
real*4 :: a1_27(:,:)
pointer :: a2 ! => a2_28
real*4 :: a2_28(:,:)
pointer :: b1 ! => b1_29
real*4 :: b1_29(:,:)
pointer :: b2 ! => b2_30
real*4 :: b2_30(:,:)
pointer :: c1 ! => c1_31
real*4 :: c1_31(:,:)
pointer :: c2 ! => c2_32
real*4 :: c2_32(:,:)
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 :: SSA_STACK_33
external :: three_assignments
integer*4 :: three_assignments
external :: __trap
external :: use_them
external :: _xlhpfExit
external :: TRAP
external, integer*4 :: _xlhpf_get_pe_bounds_index
external :: _xlhpf_allocate
external :: _xlhpf_deallocate
external, integer*4 :: MIN0
#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 _xlhpf_allocate(c1,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
call _xlhpf_allocate(c2,4,2,9,PG_12,B_13,D_14,A_20,Ax_19,2)
C 1585-501 Original Source Line 6
do i_5=iown_l_15,MIN0(iown_u_16,40),1
C 1585-501 Original Source Line 6
do i_6=iown_l_17,MIN0(iown_u_18,30),1
a2_28(i_6,i_5) = a1_27(i_6,i_5)
b2_30(i_6,i_5) = b1_29(i_6,i_5)
c2_32(i_6,i_5) = c1_31(i_6,i_5)
end do
end do
call use_them(a2,b2,c2)
call _xlhpfExit(%val(0))
TRAP(3)
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
call _xlhpf_deallocate(b1)
call _xlhpf_deallocate(b2)
call _xlhpf_deallocate(c1)
call _xlhpf_deallocate(c2)
return
call _xlhpf_deallocate(a1)
call _xlhpf_deallocate(a2)
call _xlhpf_deallocate(b1)
call _xlhpf_deallocate(b2)
call _xlhpf_deallocate(c1)
call _xlhpf_deallocate(c2)
end
>>>>> FILE TABLE SECTION <<<<< TIME 19:38:28 FROM 12/31/96 NO DATE FILE FILENAME LINE THREE_ASSIGNMENTS_2.F 0 CREATION>>>>> COMPILATION EPILOGUE SECTION <<<<< 12 TOTAL (S) (U) FOR (W) UNRECOVERABLE DIAGNOSED 1501-543 RECORDS INFORMATIONAL THREE_ASSIGNMENTS_2.F. CONDITIONS FORTRAN SUCCESSFUL FILE CREATED. SEVERE ERROR 1501-510 SUMMARY 0 SOURCE
| <- HREF="index.html" PREV | Index | Next -> |
NHSE ReviewTM: Comments · Archive · Search