Searched refs:jtxtdyn (Results 1 – 2 of 2) sorted by relevance
7456 static integer jtxtdyn, ltxtdyn; in dodyn_() local7951 for (jtxtdyn = jtxtdyn1; jtxtdyn <= i__2; ++jtxtdyn) { in dodyn_()7954 if (ivxip == comdyn_1.ivxiptxt[jtxtdyn - 1]) { in dodyn_()7962 ltxtdyn = lenstr_(comdyn_1.txtdynq + (jtxtdyn - 1 << 7), &c__128, in dodyn_()8010 i__6[1] = ltxtdyn, a__3[1] = comdyn_1.txtdynq + (jtxtdyn - 1 << 7) in dodyn_()8018 jtxtdyn1 = jtxtdyn + 1; in dodyn_()
4911 do 4 jtxtdyn = jtxtdyn1 , ntxtdyn4914 if (ivxip .eq. ivxiptxt(jtxtdyn)) go to 54919 ltxtdyn = lenstr(txtdynq(jtxtdyn),128)4940 notexq = notexq(1:lnote)//txtdynq(jtxtdyn)(1:ltxtdyn)4946 jtxtdyn1 = jtxtdyn+1