Lines Matching refs:igeo
382 integer igeo, jgeo !incremental recorders of address of geometric derivatives local
411 do igeo = 1, cur_order_geo-1
417 + real(cur_order_geo-igeo,REALK)*low_zero_pints(:,:,addr_low_xgeo)
420 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_ygeo)
436 do igeo = 1, cur_order_geo-1
441 order_geo_xy = cur_order_geo-igeo
449 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
451 do jgeo = 1, cur_order_geo-(igeo+1)
464 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
477 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
511 do igeo = 1, cur_order_geo-1
515 order_geo_x = cur_order_geo-igeo
521 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_ygeo)
529 + real(igeo,REALK)*low_geo_pints(:,:,1,addr_low_ygeo)
532 + real(igeo,REALK)*low_geo_pints(:,:,2,addr_low_ygeo)
566 do igeo = 1, cur_order_geo-1
571 order_geo_xy = cur_order_geo-igeo
579 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
589 + real(igeo,REALK)*low_geo_pints(:,:,1,addr_low_zgeo)
592 + real(igeo,REALK)*low_geo_pints(:,:,2,addr_low_zgeo)
595 + real(igeo,REALK)*low_geo_pints(:,:,3,addr_low_zgeo)
597 do jgeo = 1, cur_order_geo-(igeo+1)
610 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
622 + real(igeo,REALK)*low_geo_pints(:,:,1,addr_low_zgeo)
625 + real(igeo,REALK)*low_geo_pints(:,:,2,addr_low_zgeo)
628 + real(igeo,REALK)*low_geo_pints(:,:,3,addr_low_zgeo)
641 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
652 + real(igeo,REALK)*low_geo_pints(:,:,1,addr_low_zgeo)
655 + real(igeo,REALK)*low_geo_pints(:,:,2,addr_low_zgeo)
658 + real(igeo,REALK)*low_geo_pints(:,:,3,addr_low_zgeo)
739 do igeo = 1, cur_order_geo-1
743 order_geo_x = cur_order_geo-igeo
749 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_ygeo)
757 + real(igeo,REALK)*low_geo_pints(:,:,1,addr_low_ygeo)
760 + real(igeo,REALK)*low_geo_pints(:,:,2,addr_low_ygeo)
785 + real(igeo,REALK)*low_geo_pints(:,:,addr_cur_mom,addr_low_ygeo)
858 do igeo = 1, cur_order_geo-1
863 order_geo_xy = cur_order_geo-igeo
871 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
881 + real(igeo,REALK)*low_geo_pints(:,:,1,addr_low_zgeo)
884 + real(igeo,REALK)*low_geo_pints(:,:,2,addr_low_zgeo)
887 + real(igeo,REALK)*low_geo_pints(:,:,3,addr_low_zgeo)
915 + real(igeo,REALK)*low_geo_pints(:,:,addr_cur_mom,addr_low_zgeo)
922 do jgeo = 1, cur_order_geo-(igeo+1)
935 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
947 + real(igeo,REALK)*low_geo_pints(:,:,1,addr_low_zgeo)
950 + real(igeo,REALK)*low_geo_pints(:,:,2,addr_low_zgeo)
953 + real(igeo,REALK)*low_geo_pints(:,:,3,addr_low_zgeo)
983 + real(igeo,REALK)*low_geo_pints(:,:,addr_cur_mom,addr_low_zgeo)
1001 + real(igeo,REALK)*low_zero_pints(:,:,addr_low_zgeo)
1012 + real(igeo,REALK)*low_geo_pints(:,:,1,addr_low_zgeo)
1015 + real(igeo,REALK)*low_geo_pints(:,:,2,addr_low_zgeo)
1018 + real(igeo,REALK)*low_geo_pints(:,:,3,addr_low_zgeo)
1045 + real(igeo,REALK)*low_geo_pints(:,:,addr_cur_mom,addr_low_zgeo)
1158 integer igeo !incremental recorder over geometric derivatives local
1165 do igeo = 1, num_geo_pot
1166 hmom_pints(:,:,:,igeo) = cur_geo_pints(:,:,start_mom:dim_up_mom,igeo)