Home
last modified time | relevance | path

Searched refs:LETDIF (Results 1 – 5 of 5) sorted by relevance

/dports/math/math77/MATH77/extras/
H A Dcdemom.f87 1 LENLIN(MAXLIN), LETDIF, LNAM, LONAM, LSPEC, LTNAM, MLCA, MLCZ, variable
105 LETDIF = MUCA - MLCA
228 1 char(L + LETDIF)
239 1 char(L - LETDIF)
H A Dm77con.f1103 1 .eq. LETDIF) then
1412 1 char(ichar(C) + LETDIF)
1542 1 char(ichar(BUF1(4:4)) + LETDIF)
1557 1 char(ichar(LOUTUP) + LETDIF)
1683 if (K .le. MAPLC) C = char(J - LETDIF)
1805 if (LC) BUF1(J:J) = char(ichar(BUF1(J:J)) + LETDIF)
2077 1 char(ichar(BUF2(IVAL:IVAL)) + LETDIF)
2731 LLO = char(ichar(LOUTUP) + LETDIF)
2915 LETDIF = ichar('a') - ichar('A')
3212 if (K .le. MAPLC) C = char(J - LETDIF)
[all …]
H A Dmangle.f261 common /GLINT1/ IH, KLIN, KSTA, LETDIF, local
450 common /GLINT1/ IH, KLIN, KSTA, LETDIF, local
601 common /GLINT1/ IH, KLIN, KSTA, LETDIF, local
619 LETDIF = ichar('a') - LETIDX - 1
773 common /GLINT1/ IH, KLIN, KSTA, LETDIF, local
1187 if (K .eq. MAPLC) C = char(J - LETDIF)
1224 J = J - LETDIF
1756 common /GLINT1/ IH, KLIN, KSTA, LETDIF, local
1855 common /GLINT1/ IH, KLIN, KSTA, LETDIF, local
2041 common /GLINT1/ IH, KLIN, KSTA, LETDIF, local
[all …]
H A Dgloch1.f572 2 LETDIF, LETIDX, LFREEN, LGLOBX, LINE, LREFLX, LSAVEN, LSAVGL, variable
576 1 KSAVEN, KSAVGL, KSTA, KTOK, KXINFO, LASGLO, LETDIF, LETIDX, local
1515 1 KSAVEN, KSAVGL, KSTA, KTOK, KXINFO, LASGLO, LETDIF, LETIDX, local
1688 1 KSAVEN, KSAVGL, KSTA, KTOK, KXINFO, LASGLO, LETDIF, LETIDX, local
1929 1 KSAVEN, KSAVGL, KSTA, KTOK, KXINFO, LASGLO, LETDIF, LETIDX, local
1984 LETDIF = ichar('a') - LETIDX - 1
2187 1 KSAVEN, KSAVGL, KSTA, KTOK, KXINFO, LASGLO, LETDIF, LETIDX, local
2514 1 KSAVEN, KSAVGL, KSTA, KTOK, KXINFO, LASGLO, LETDIF, LETIDX, local
2800 130 if (K .eq. MAPLC) C = char(J - LETDIF)
2841 if (K .eq. MAPLC) C = char(J - LETDIF)
[all …]
H A Dcdemo.f1112 3 KTRAN(49), KTOLSV, L1, L2, LAST, LB1, LB2, LENSTR, LETDIF, local
1121 1 LENSTR, LETDIF, LINCH1, LINCH2, STRC, TOLP, TOLSV, TOL
1423 if (M1 .lt. MAPUC) C1 = char(ichar(C1) - LETDIF)
1424 if (M2 .lt. MAPUC) C2 = char(ichar(C2) - LETDIF)
1660 LETDIF = ichar('a') - ichar('A')
1739 if (MAP(ichar(C1)) .lt. MAPUC) C1 = char(ichar(C1) - LETDIF)
1742 if (MAP(ichar(C2)) .lt. MAPUC) C2 = char(ichar(C2) - LETDIF)
1834 BUFC(I:I)=char(K - LETDIF)