[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):

 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