Lines Matching refs:igeo
413 integer igeo !incremental recorder over geometric derivatives local
441 do igeo = 1, num_geo
456 up_lmom_pints(:,1,:,addr_up_mom,igeo) &
458 * low_lmom_pints(:,1,:,addr_low_mom,igeo) &
459 + low_lmom_pints(:,2,:,addr_low_mom,igeo)
487 up_lmom_pints(:,addr_cur_hket,:,addr_up_mom,igeo) &
489 * low_lmom_pints(:,addr_hket,:,addr_low_mom,igeo) &
491 * low_lmom_pints(:,addr_low_hket,:,addr_low_mom,igeo) &
492 + low_lmom_pints(:,addr_up_hket,:,addr_low_mom,igeo)
503 up_lmom_pints(:,addr_cur_hket,:,addr_up_mom,igeo) &
505 * low_lmom_pints(:,addr_hket,:,addr_low_mom,igeo) &
506 + low_lmom_pints(:,addr_up_hket,:,addr_low_mom,igeo)
526 up_lmom_pints(:,1,:,addr_up_mom,igeo) &
528 * low_lmom_pints(:,1,:,addr_low_ymom,igeo) &
529 + low_lmom_pints(:,3,:,addr_low_ymom,igeo)
555 up_lmom_pints(:,addr_cur_hket,:,addr_up_mom,igeo) &
557 * low_lmom_pints(:,addr_hket,:,addr_low_ymom,igeo) &
558 + low_lmom_pints(:,addr_up_hket,:,addr_low_ymom,igeo)
571 up_lmom_pints(:,addr_cur_hket,:,addr_up_mom,igeo) &
573 * low_lmom_pints(:,addr_hket,:,addr_low_ymom,igeo) &
575 * low_lmom_pints(:,addr_low_hket,:,addr_low_ymom,igeo) &
576 + low_lmom_pints(:,addr_up_hket,:,addr_low_ymom,igeo)
599 up_lmom_pints(:,1,:,addr_up_mom,igeo) &
601 * low_lmom_pints(:,1,:,addr_low_mom,igeo) &
602 + low_lmom_pints(:,4,:,addr_low_mom,igeo)
628 up_lmom_pints(:,addr_cur_hket,:,addr_up_mom,igeo) &
630 * low_lmom_pints(:,addr_hket,:,addr_low_mom,igeo) &
631 + low_lmom_pints(:,addr_up_hket,:,addr_low_mom,igeo)
646 up_lmom_pints(:,addr_cur_hket,:,addr_up_mom,igeo) &
648 * low_lmom_pints(:,addr_hket,:,addr_low_mom,igeo) &
650 * low_lmom_pints(:,addr_low_hket,:,addr_low_mom,igeo) &
651 + low_lmom_pints(:,addr_up_hket,:,addr_low_mom,igeo)