Searched refs:paraContactFlag (Results 1 – 14 of 14) sorted by relevance
67 if(paraContactFlag.and.present(conMAT)) then75 if(paraContactFlag.and.present(conMAT)) then82 if(paraContactFlag.and.present(conMAT)) then105 if(paraContactFlag.and.present(conMAT)) then
476 if(paraContactFlag.and.present(conMAT)) then481 if(paraContactFlag.and.present(conMAT)) then499 if( paraContactFlag.and.present(conMAT) ) then505 if(paraContactFlag.and.present(conMAT)) then550 if(paraContactFlag.and.present(conMAT)) then562 if(paraContactFlag.and.present(conMAT)) then611 if(paraContactFlag.and.present(conMAT)) then618 if(paraContactFlag.and.present(conMAT)) then680 if(paraContactFlag.and.present(conMAT)) then712 if(paraContactFlag.and.present(conMAT)) then[all …]
122 if(paraContactFlag.and.present(conMAT)) then263 if(paraContactFlag.and.present(conMAT)) then344 if(paraContactFlag.and.present(conMAT)) then406 if(paraContactFlag.and.present(conMAT)) then
73 if(paraContactFlag.and.present(conMAT)) then
92 if(paraContactFlag.and.present(conMAT)) then
154 if(paraContactFlag.and.present(conMAT)) then191 if(paraContactFlag.and.present(conMAT)) then
1495 if( paraContactFlag .and. .not. updated(1)) then1503 if( paraContactFlag .and. .not. updated(2)) then1511 if( paraContactFlag .and. .not. updated(3)) then1519 if( paraContactFlag .and. .not. updated(4)) then1534 if( paraContactFlag .and. .not. updated(6)) then1548 if( paraContactFlag .and. .not. updated(7)) then
35 if(paraContactFlag) then61 if(paraContactFlag) then
89 if(paraContactFlag.and.present(conMAT)) then95 if(paraContactFlag.and.present(conMAT)) then145 fg_paracon = (paraContactFlag.and.present(conMAT))
58 paraContactFlag = .true.61 print *,'paraContactFlag',paraContactFlag306 if( paraContactFlag ) then376 if( paraContactFlag ) then
557 if(paraContactFlag.and.present(conMAT)) then563 if(paraContactFlag.and.present(conMAT)) then651 if(paraContactFlag.and.present(conMAT)) then658 if(paraContactFlag.and.present(conMAT)) then681 if(paraContactFlag.and.present(conMAT)) then693 if(paraContactFlag.and.present(conMAT)) then737 if(paraContactFlag.and.present(conMAT)) then791 if(paraContactFlag.and.present(conMAT)) then801 if(paraContactFlag.and.present(conMAT)) call hecmw_mat_clear_b( conMAT )
212 if(paraContactFlag.and.present(conMAT)) then
84 logical :: paraContactFlag = .false. variable
450 if(paraContactFlag) then