[openAD] #210: shape matching fails
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- there are a number of places in SCALE where shape matching for array temporaries fails: {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepout_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepout_I.f90(152): error #6366: The shapes of the array expressions do not conform. [OPENAD_DLY_70] OpenAD_dly_70 = (PXJ(:,:,IZ)%v/XT(IZ)) ----^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepout_I.f90(155): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_347,PXJ(:,:,IZ)) ---------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepout_I.f90(165): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1089] OpenAD_lin_1089 = (PXJ(IGPT+2,:,:)%v-PXJ(IGPT,:,:)%v) ----^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepout_I.f90(168): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_348,PXJ(IGPT,:,:)) ---------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepout_I.f90(169): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_349,PXJ(IGPT+2,:,:)) ---------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepout_I.f90(170): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_350,PXJ(IGPT,:,:)) ---------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepout_I.f90(174): error #6285: There is no matching specific subroutine for this generic subroutine call. [SAXPY] CALL saxpy(OpenAD_lin_1091,OpenAD_prp_351,PXJ(IGPT+1,:,:)) ---------^ }}} {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(291): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_998] OpenAD_lin_998 = PXND(:,:)%v --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(294): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1000] OpenAD_lin_1000 = PXB(:)%v --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(296): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_299,XND(:,:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(303): error #6285: There is no matching specific subroutine for this generic subroutine call. [SAXPY] CALL saxpy(OpenAD_lin_998,CON,XND(:,:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(319): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1002] OpenAD_lin_1002 = XNA(:IM,:)%v --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(320): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_301,XJ(:IM,:,IIG)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(321): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(XJ(:IM,:,IIG),OpenAD_prp_301) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(322): error #6285: There is no matching specific subroutine for this generic subroutine call. [SAXPY] CALL saxpy(OpenAD_lin_1001,XNA(:IM,:),XJ(:IM,:,IIG)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/mgsum_I.f90(323): error #6285: There is no matching specific subroutine for this generic subroutine call. [SAXPY] CALL saxpy(OpenAD_lin_1002,CON,XJ(:IM,:,IIG)) -------^ }}} {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/inner_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/inner_I.f90(256): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_868] OpenAD_lin_868 = XNN(:)%v --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/inner_I.f90(257): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_869] OpenAD_lin_869 = CS(:)%v --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/inner_I.f90(457): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_256,XNR(:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/inner_I.f90(1055): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_916] OpenAD_lin_916 = PNC(M,:) --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/inner_I.f90(1056): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_268,XNA(I,:)) -------^ }}} {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(142): error #6366: The shapes of the array expressions do not conform. [OPENAD_DLY_71] OpenAD_dly_71 = (SRMG(:)%v/DELTG) --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(148): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_354,SRMG(:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(191): error #6366: The shapes of the array expressions do not conform. [OPENAD_DLY_75] OpenAD_dly_75 = (SAMG(:,:)%v/DEP1H) --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(194): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_365,SAMG(:,:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(222): error #6366: The shapes of the array expressions do not conform. [OPENAD_DLY_74] OpenAD_dly_74 = (SAMG(:,:)%v/DEP1H) --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(225): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_357,SAMG(:,:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(226): error #6285: There is no matching specific subroutine for this generic subroutine call. [SAX] CALL sax(OpenAD_lin_1109,PXJT(:,:JT,1),XJ(:,:JT,IIG)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(233): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_358,AT(:,2)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(236): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_359,AT(:,18)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(239): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_360,AT(:,30)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(242): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_361,AT(:,13)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(245): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_362,AT(:,28)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(247): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1113] OpenAD_lin_1113 = (PXN(:,1)%v*DELT%v) --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(250): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1116] OpenAD_lin_1116 = PXN(:,1)%v --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(256): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_363,AT(:,13)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(257): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_364,AT(:,28)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/prepxc_I.f90(259): error #6285: There is no matching specific subroutine for this generic subroutine call. [DEC_DERIV] CALL dec_deriv(AT(:,25),OpenAD_prp_364) -------^ }}} {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/firstp_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/firstp_I.f90(208): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1280] OpenAD_lin_1280 = XND(I,:)%v ----^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/firstp_I.f90(214): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1282] OpenAD_lin_1282 = XND(IP,:)%v --^ }}} {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(106): error #6366: The shapes of the array expressions do not conform. [OPENAD_DLY_78] OpenAD_dly_78 = (THSRP(I,:)%v*RNORM%v) ------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(108): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1386] OpenAD_lin_1386 = THSRP(I,:)%v ------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(110): error #6366: The shapes of the array expressions do not conform. [OPENAD_DLY_79] OpenAD_dly_79 = (THSAP(I,:,:)%v*RNORM%v) ------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(112): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1388] OpenAD_lin_1388 = THSAP(I,:,:)%v ------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(114): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_409,THSRP(I,:)) -----------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(115): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_410,THSAP(I,:,:)) -----------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(119): error #6285: There is no matching specific subroutine for this generic subroutine call. [SAXPY] CALL saxpy(OpenAD_lin_1388,RNORM,THSAP(I,:,:)) -----------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(139): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_414,SA(:IM,:)) ---------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(141): error #6285: There is no matching specific subroutine for this generic subroutine call. [INC_DERIV] CALL inc_deriv(SA(:IM,:),OpenAD_prp_414) ---------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(160): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_418,SA(:IM,:)) -----------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/thermit_I.f90(161): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(SA(:IM,:),OpenAD_prp_418) -----------^ }}} {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pw_chi_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pw_chi_I.f90(54): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1552] OpenAD_lin_1552 = TMP_CHI(:) ------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pw_chi_I.f90(55): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_453,POINT_CHI(:,ISPEC)) -----------^ }}} {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/calc_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/calc_I.f90(1685): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_504,XNA(:IM,:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/calc_I.f90(1686): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(FLK(2:JT+1,:IM),OpenAD_prp_504) -------^ }}} {{{ ifort -std95 -us -lowercase -traceback -free -O0 -g -debug all -traceback -mieee-fp -I /sandbox/lyonsam/hgBranch/vecOp_Scale/Scale/scale6-new/build/mods/OAD.pre.xb.x2w.w2f.post/scalelib -c ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pxsset_I.f90 ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pxsset_I.f90(1630): warning #8089: Parentheses around an I/O list is an extension to Standard F95. & ra'//'tio=", es8.2)') EP,NZAP(NUCP),(SIG_COH/PXSS(MATP,N)) ---------------------------------------------------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pxsset_I.f90(2028): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_499,REMVL(:,:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pxsset_I.f90(2035): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1847] OpenAD_lin_1847 = (DU(NPTH+1)*PDDXS(:,1,:,1)%v) --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pxsset_I.f90(2039): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_500,REMVL(:,:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pxsset_I.f90(2042): error #6366: The shapes of the array expressions do not conform. [OPENAD_LIN_1851] OpenAD_lin_1851 = (DU(NBLOW+NPTH+(-1))*PDDXS(:,1,:,NBLOW)%v) --^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pxsset_I.f90(2046): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_501,REMVL(:,:)) -------^ ../../../../src/mods/OAD.pre.xb.x2w.w2f.post/centrm/pxsset_I.f90(2065): error #6285: There is no matching specific subroutine for this generic subroutine call. [SETDERIV] CALL setderiv(OpenAD_prp_502,REMVL(:,:)) -------^ }}} -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/210> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by lyonsam): Most or all of the examples above fail because a temp that needs to be an array is instead created as a scalar. Note, however, that this problem happens in the other direction as well. == Example == In centrm/inner_I.f90: {{{ REAL(w2f__8) OpenAD_lin_871(:) ALLOCATABLE OpenAD_lin_871 ... OpenAD_lin_871 = CH(I,N)%v }}} -- Ticket URL: <http://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:1> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by utke): fixes with xaifBooster: 1163:da3147f73918 1164:9f5d975b9c90 1165:2a8872c70fc1 1166:974cf79d8259 part of the problem was a bad check in the distinction of range dereferences clarification in xaif: 220:c502cc04138b -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:2> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: accepted Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Changes (by utke): * status: new => accepted -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:3> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: accepted Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by lyonsam): The issue with OpenAD_lin_871 in centrm/inner_I.f90 is still an issue. Here's the declaration for the (active) the we're trying to shape match with. from centrm/data_centrm_C.f90: {{{ type(active) :: CH(:,:) ALLOCATABLE CH }}} -- Ticket URL: <http://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:4> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: accepted Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by lyonsam): Further examples of arrays created to hold scalar values: ---- from centrm/data_centrm_C.f90: {{{ REAL(w2f__4) PNC(:, :) ALLOCATABLE PNC }}} from centrm/inner_I.f90: {{{ REAL(w2f__8) OpenAD_lin_887(:) ALLOCATABLE OpenAD_lin_887 ... OpenAD_lin_887 = PNC(M,N) }}} ---- in centrm/rebaln_I.f90: {{{ type(active) :: SOR(1:IM) ... REAL(w2f__8) OpenAD_lin_453(:) ALLOCATABLE OpenAD_lin_453 ... REAL(w2f__8) OpenAD_lin_455(:) ALLOCATABLE OpenAD_lin_455 ... ... OpenAD_lin_453 = SOR(I)%v OpenAD_lin_455 = SOR(I)%v }}} ---- in centrm/mgsum_I.f90: {{{ REAL(w2f__8) OpenAD_lin_995(:) ALLOCATABLE OpenAD_lin_995 ... REAL(w2f__8) OpenAD_lin_997(:, :) ALLOCATABLE OpenAD_lin_997 ... REAL(w2f__8) OpenAD_lin_999(:) ALLOCATABLE OpenAD_lin_999 ... ... OpenAD_lin_995 = CON%v OpenAD_lin_997 = CON%v OpenAD_lin_999 = CON%v }}} -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:5> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: accepted Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by lyonsam): More in mgsum_I.f90: {{{ REAL(w2f__8) OpenAD_lin_1001(:, :) ALLOCATABLE OpenAD_lin_1001 ... REAL(w2f__8) OpenAD_lin_1005(:) ALLOCATABLE OpenAD_lin_1005 ... ... OpenAD_lin_1001 = CON%v OpenAD_lin_1005 = E4 }}} ---- from centrm/firstp_I.f90: {{{ REAL(w2f__8) OpenAD_lin_1269(:) ALLOCATABLE OpenAD_lin_1269 ... REAL(w2f__8) OpenAD_lin_1281(:) ALLOCATABLE OpenAD_lin_1281 ... REAL(w2f__8) OpenAD_lin_1283(:) ALLOCATABLE OpenAD_lin_1283 ... ... OpenAD_lin_1269 = QNORM(I)%v ... OpenAD_lin_1281 = QNORM(I)%v ... OpenAD_lin_1283 = QNORM(IM)%v }}} ---- in centrm/prepxc_I.f90: {{{ REAL(w2f__8) OpenAD_lin_1097(:) ALLOCATABLE OpenAD_lin_1097 ... REAL(w2f__8) OpenAD_lin_1099(:) ALLOCATABLE OpenAD_lin_1099 ... REAL(w2f__8) OpenAD_lin_1101(:) ALLOCATABLE OpenAD_lin_1101 ... ... OpenAD_lin_1097 = (INT(1_w2f__i8)/DELTG) OpenAD_lin_1099 = (INT(1_w2f__i8)/DELTGU) OpenAD_lin_1101 = (INT(1_w2f__i8)/DELTGU) {{{ -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:6> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: accepted Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by utke): remove extra deref prefixes with http://www.hpc.svn.rice.edu/revision.php?repname=open64&path=%2F&rev=881 -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:7> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: accepted Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by utke): Replying to [comment:7 utke]:
remove extra deref prefixes with http://www.hpc.svn.rice.edu/revision.php?repname=open64&path=%2F&rev=881 Follow on fix for incorrectly unparsed variable names with http://www.hpc.svn.rice.edu/revision.php?repname=open64&path=%2F&rev=882
-- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:8> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: accepted Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by utke): suppress selector in lbound/ubound, fixed with http://mercurial.mcs.anl.gov/ad/OpenADFortTk/rev/06b73b647bb7 -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:9> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#210: shape matching fails -------------------------+-------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: accepted Priority: major | Milestone: scale1 Component: xaifBooster | Keywords: -------------------------+-------------------------------------------------- Comment(by lyonsam): another issue from centrm/pxsset_I.f90: {{{ REAL(w2f__8) DU(1 : NTOTP) INTENT(IN) DU ... REAL(w2f__8) OpenAD_lin_1850(:, :) ALLOCATABLE OpenAD_lin_1850 ... ! $OpenAD$ INLINE oad_AllocateMatching(subst,subst) CALL oad_AllocateMatching(OpenAD_acc_336,OpenAD_lin_1850) ... OpenAD_lin_1850 = DU(NPTH+1) }}} -- Ticket URL: <http://trac.mcs.anl.gov/projects/openAD/ticket/210#comment:10> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
participants (1)
-
OpenAD