Searched refs:__DESC (Results 26 – 39 of 39) sorted by relevance
12
76 __DESC = 35, /**< template/array/section descriptor */ enumerator
113 if (ad == NULL || F90_TAG_G(ad) != __DESC) in ENTFTN()
792 if (as == NULL || F90_TAG_G(as) != __DESC) in ENTFTN()818 if (as == NULL || F90_TAG_G(as) != __DESC) in ENTFTN()845 if (as == NULL || F90_TAG_G(as) != __DESC) in ENTFTN()874 if (as == NULL || F90_TAG_G(as) != __DESC) in ENTFTN()
110 if (F90_TAG_G(ac) != __DESC) { /* scalar */ in I8()
126 if (hd == NULL || F90_TAG_G(hd) != __DESC) in I8()133 if (F90_TAG_G(rd) == __DESC) { in I8()
110 z.mask_present = (F90_TAG_G(ms) == __DESC && F90_RANK_G(ms) > 0); in ENTFTN()
80 #define ISSEQUENCE(p) (F90_TAG_G(p) < 0 && F90_TAG_G(p) != -__DESC)82 #define ISSCALAR(p) (F90_TAG_G(p) > 0 && F90_TAG_G(p) != __DESC)85 ((dtype)(F90_TAG_G(p) == __DESC \1345 F90_TAG_P((d), __DESC); \1357 F90_TAG_P((d), __DESC); \
231 if (F90_TAG_G(sd) != __DESC) in ENTFTN()
1191 if (sd && sd->tag == __DESC && sd->lsize > 1) in ENTF90()1231 if (sd && sd->tag == __DESC && sd->lsize > 1) { in ENTF90()1271 if (sd && sd->tag == __DESC && sd->lsize > 1) in ENTF90()1314 if (sd && sd->tag == __DESC) { in ENTF90()
282 if (F90_TAG_G(ss) == __DESC) { in I8()291 if (F90_TAG_G(bs) == __DESC) { in I8()
248 if (F90_TAG_G(cs) == __DESC && F90_RANK_G(cs) != 0) in ENTFTN()
6190 if (F90_TAG_G(harvest) == __DESC) { in ENTFTN()6247 if (F90_TAG_G(harvest) == __DESC) { in ENTFTN()6298 if (F90_TAG_G(d) == __DESC) { in put_int()6347 if (F90_TAG_G(getd) != __DESC) in ENTFTN()6390 if (F90_TAG_G(putd) == __DESC) { in ENTFTN()
773 if (valuesd && F90_TAG_G(valuesd) == __DESC) { in ENTFTN()
3418 __DESC = 35, /* template/array/section descriptor */ enumerator