Searched refs:F90_DPTR_EXTENT_G (Results 1 – 19 of 19) sorted by relevance
48 if (F90_DPTR_EXTENT_G(sd) != F90_DPTR_EXTENT_G(sd)) in I8()
512 in = F90_DPTR_EXTENT_G(aid); in I8()513 jn = F90_DPTR_EXTENT_G(bjd); in I8()514 kn = F90_DPTR_EXTENT_G(ckd); in I8()515 if (F90_DPTR_EXTENT_G(cid) != in || F90_DPTR_EXTENT_G(ajd) != jn || in I8()516 F90_DPTR_EXTENT_G(bkd) != kn) in I8()734 nj = F90_DPTR_EXTENT_G(bjd); in I8()735 nk = F90_DPTR_EXTENT_G(ckd); in I8()736 if (F90_DPTR_EXTENT_G(ajd) != nj || F90_DPTR_EXTENT_G(bkd) != nk) in I8()982 ni = F90_DPTR_EXTENT_G(aid); in I8()983 nj = F90_DPTR_EXTENT_G(bjd); in I8()[all …]
83 if (F90_DPTR_EXTENT_G(ddd) != F90_DPTR_EXTENT_G(sdd)) in I8()247 tmp_lstride *= F90_DPTR_EXTENT_G(ad); in I8()1048 ubound[i - 1] = F90_DPTR_EXTENT_G(tdd); in ENTFTN()1777 extent = F90_DPTR_EXTENT_G(add); in ENTF90()1849 extent = F90_DPTR_EXTENT_G(add); in ENTF90()1922 extent = F90_DPTR_EXTENT_G(add); in ENTF90()1997 extent = F90_DPTR_EXTENT_G(add); in ENTF90()2088 running_lstride *= F90_DPTR_EXTENT_G(add); in ENTF90()2110 extent = F90_DPTR_EXTENT_G(add); in ENTF90()2201 running_lstride *= F90_DPTR_EXTENT_G(add); in ENTF90()[all …]
449 ln = F90_DPTR_EXTENT_G(lcd); in I8()673 y->extent[cx - 1] = F90_DPTR_EXTENT_G(cd); in I8()778 dn = F90_DPTR_EXTENT_G(dcd); in I8()792 sn = F90_DPTR_EXTENT_G(scd); in I8()843 if (F90_DPTR_EXTENT_G(dcd) != F90_DPTR_EXTENT_G(scd)) in I8()
43 n = F90_DPTR_EXTENT_G(acd); /* extent */ in I8()
409 offset = index[i] + (F90_DPTR_EXTENT_G(add)*offset); in ENTF90()453 offset = index[i] + (F90_DPTR_EXTENT_G(add)*offset); in ENTF90()502 offset = (*ele1-F90_DPTR_LBOUND_G(add)) + (F90_DPTR_EXTENT_G(add)*offset); in ENTF90()529 offset = (*ele2-F90_DPTR_LBOUND_G(add)) + (F90_DPTR_EXTENT_G(add)*offset); in ENTF90()531 offset = (*ele1-F90_DPTR_LBOUND_G(add)) + (F90_DPTR_EXTENT_G(add)*offset); in ENTF90()579 offset = (*ele1-F90_DPTR_LBOUND_G(add)) + (F90_DPTR_EXTENT_G(add)*offset); in ENTF90()608 offset = (*ele2-F90_DPTR_LBOUND_G(add)) + (F90_DPTR_EXTENT_G(add)*offset); in ENTF90()610 offset = (*ele1-F90_DPTR_LBOUND_G(add)) + (F90_DPTR_EXTENT_G(add)*offset); in ENTF90()
1389 gsize *= F90_DPTR_EXTENT_G(dd); in I8()1394 lextent = F90_DPTR_EXTENT_G(dd); in I8()1586 gsize *= F90_DPTR_EXTENT_G(dd); in ENTFTN()1720 gsize *= F90_DPTR_EXTENT_G(dd); in ENTF90()1806 gsize *= F90_DPTR_EXTENT_G(dd); in ENTF90()1879 gsize *= F90_DPTR_EXTENT_G(dd); in ENTF90()1964 gsize *= F90_DPTR_EXTENT_G(dd); in ENTF90()2042 gsize *= F90_DPTR_EXTENT_G(dd); in ENTF90()2134 gsize *= F90_DPTR_EXTENT_G(dd); in ENTF90()2219 gsize *= F90_DPTR_EXTENT_G(dd); in ENTF90()[all …]
151 aExtent = F90_DPTR_EXTENT_G(dd); in I8()331 aExtent = F90_DPTR_EXTENT_G(dd); in I8()646 aExtent = F90_DPTR_EXTENT_G(dd); in I8()749 o->extent = F90_DPTR_EXTENT_G(dd); in I8()
84 extent = F90_DPTR_EXTENT_G(asd); in I8()214 m = F90_DPTR_EXTENT_G(asd); in I8()277 m = F90_DPTR_EXTENT_G(asd); in I8()502 m = F90_DPTR_EXTENT_G(asd); in I8()1282 extent = F90_DPTR_EXTENT_G(add); in ENTFTN()
250 extent = F90_DPTR_EXTENT_G(sdd); in ENTFTN()
334 __extent = F90_DPTR_EXTENT_G(tdd); /* section extent */ in ENTFTN()850 __extent = F90_DPTR_EXTENT_G(odd); /* section extent */ in ENTF90()914 __extent = F90_DPTR_EXTENT_G(tdd); /* section extent */ in ENTFTN()1690 pextent = F90_DPTR_EXTENT_G(pdd); in I8()1693 textent = F90_DPTR_EXTENT_G(tdd); in I8()
1329 if (val < F90_DPTR_LBOUND_G(acd) || val > F90_DPTR_EXTENT_G(acd)) in I8()1372 upb = F90_DPTR_EXTENT_G(acd); in I8()1381 if (upb < F90_DPTR_LBOUND_G(acd) || upb > F90_DPTR_EXTENT_G(acd)) in I8()1527 sb.sect[i].upb = F90_DPTR_EXTENT_G(acd); in I8()
151 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()171 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()216 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()258 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()278 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()323 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()5934 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()5954 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()5997 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()6040 current = F90_DPTR_EXTENT_G(hdd) * section_offset + in I8()[all …]
65 extent = F90_DPTR_EXTENT_G(ad); in ENTFTN()
408 F90_DPTR_LBOUND_G(dd), DPTR_UBOUND_G(dd), F90_DPTR_EXTENT_G(dd), in ENTF90COMN()
868 extent = F90_DPTR_EXTENT_G(gd); in ENTFTN()899 size = F90_DPTR_EXTENT_G(gd); in ENTFTN()
363 sb.sect[i].upb = F90_DPTR_EXTENT_G(acd); in I8()
57 extent = F90_DPTR_EXTENT_G(asd); in I8()
1005 #define F90_DPTR_EXTENT_G(p) (p##_f90_dim->extent) macro