Searched refs:noleva (Results 1 – 2 of 2) sorted by relevance
6966 static integer noleva; in doacc_() local7051 noleva = *nolev; in doacc_()7053 noleva = noleva + *ivshft - 32; in doacc_()7055 notefq_(noteq, &lnoten, &noleva, ncm, (ftnlen)8); in doacc_()
4281 noleva = nolev4282 if (ivshft .ne. 0) noleva = noleva+ivshft-324283 call notefq(noteq,lnoten,noleva,ncm)