[Ad-dev] [openAD] #210: shape matching fails

[OpenAD]

#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