[openAD] #207: value/deriv component selectors not added for active pointers
#207: value/deriv component selectors not added for active pointers --------------------------+------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: OpenADFortTk | Keywords: --------------------------+------------------------------------------------- Manifests in Scale; hard to re-create in a small example without ability to induce an active pointer. example from centrm/accel_I.f90: active array pointer XNTN needs value selector in a number of places. Here is the declaration: {{{ type(active) :: XNTN(:,:) POINTER XNTN }}} -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/207> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#207: value/deriv component selectors not added for active pointers --------------------------+------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: OpenADFortTk | Keywords: --------------------------+------------------------------------------------- Comment(by lyonsam): {{{ XNTN(I,:IGMT) = DBLE(XNTN(I,:IGMT))*SCAL(I)%v }}} should be {{{ XNTN(I,:IGMT)%v = XNTN(I,:IGMT)%v*SCAL(I)%v }}} -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/207#comment:1> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#207: value/deriv component selectors not added for active pointers --------------------------+------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: OpenADFortTk | Keywords: --------------------------+------------------------------------------------- Comment(by lyonsam): {{{ XNTN(I,IG) = (XNTO(I,IG)%v+OVER%v*R%v) }}} should be {{{ XNTN(I,IG)%v = XNTO(I,IG)%v+OVER%v*R%v }}} -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/207#comment:2> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#207: value/deriv component selectors not added for active pointers --------------------------+------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: OpenADFortTk | Keywords: --------------------------+------------------------------------------------- Comment(by lyonsam): {{{ XNTN(I,IG) = (XNTO(I,IG)%v+OVER%v*R%v) }}} should be {{{ XNTN(I,IG)%v = XNTO(I,IG)%v+OVER%v*R%v }}} -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/207#comment:3> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#207: value/deriv component selectors not added for active pointers --------------------------+------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: OpenADFortTk | Keywords: --------------------------+------------------------------------------------- Comment(by lyonsam): {{{ BTN(:MM,IG) = (BTO(1:MM,IG)*(DBLE(XNTN(1,IG))/XNTO(1,IG))) }}} should be {{{ BTN(:MM,IG)%v = BTO(1:MM,IG)%v*(XNTN(1,IG)%v/XNTO(1,IG)%v) }}} -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/207#comment:4> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#207: value/deriv component selectors not added for active pointers --------------------------+------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: OpenADFortTk | Keywords: --------------------------+------------------------------------------------- Comment(by lyonsam): {{{ BTN(:MM,IG) = (BTO(1:MM,IG)*(DBLE(XNTN(IM,IG))/XNTO(IM,IG))) }}} should be {{{ BTN(:MM,IG)%v = BTO(1:MM,IG)%v*(XNTN(IM,IG)%v/XNTO(IM,IG)%v) }}} -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/207#comment:5> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
#207: value/deriv component selectors not added for active pointers --------------------------+------------------------------------------------- Reporter: lyonsam | Owner: utke Type: defect | Status: new Priority: major | Milestone: scale1 Component: OpenADFortTk | Keywords: --------------------------+------------------------------------------------- Comment(by lyonsam): this may be due to the fact that the statements are inside WHERE constructs. I'll find out soon... -- Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/207#comment:6> OpenAD <http://www.mcs.anl.gov/openad> Bug tracking for OpenAD components
participants (1)
-
OpenAD