64   else if (F90_TAG_G(pd) == __DESC) {  in ENTFTN()
81   else if (F90_TAG_G(pd) == __DESC) {  in ENTFTN()
105   else if (F90_TAG_G(pd) == __DESC) {  in ENTFTN()
127   if (F90_TAG_G(td) == __DESC) {  in I8()
181   } else if (F90_TAG_G(td) == __DESC) {  in ENTFTN()
208   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
242   if (F90_TAG_G(td) == __DESC) {  in I8()
308   } else if (F90_TAG_G(td) == __DESC) {  in ENTFTN()
323       F90_TAG_P(pd, __DESC);  in ENTFTN()
384   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
423   } else if (F90_TAG_G(td) == __DESC) {  in ENTFTN()
456   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
498   } else if (F90_TAG_G(td) == __DESC) {  in ENTFTN()
530   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
673   } else if (F90_TAG_G(ad) == __DESC) {  in I8()
746     else if (F90_TAG_G(ad) == __DESC)  in I8()
768   if (F90_TAG_G(td) == __DESC) {  in I8()
827   } else if (F90_TAG_G(od) == __DESC) {  in ENTF90()
839     F90_TAG_P(nd, __DESC);  in ENTF90()
888   } else if (F90_TAG_G(td) == __DESC) {  in ENTFTN()
903       F90_TAG_P(pd, __DESC);  in ENTFTN()
966   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
1007   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
1048   } else if (F90_TAG_G(td) == __DESC) {  in ENTFTN()
1092   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
1137   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
1181   } else if (F90_TAG_G(td) == __DESC) {  in ENTFTN()
1215   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
1258   } else if (F90_TAG_G(td) == __DESC || F90_TAG_G(td) == __STR) {  in ENTFTN()
1315     notSet = (F90_TAG_G(pd) != __DESC);  in ENTFTN()
1621   if (F90_TAG_G(dd) == __DESC) {  in ENTFTN()
1681     if (F90_TAG_G(pd) == __DESC) {  in I8()
1682       if (F90_TAG_G(td) != __DESC || F90_RANK_G(pd) != F90_RANK_G(td) ||  in I8()
1870   if (fd != td && F90_TAG_G(fd) == __DESC) {  in ENTF90()