#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