Searched refs:clefq (Results 1 – 3 of 3) sorted by relevance
17963 function ncmidf(clefq)17967 character*1 clefq17968 c if (clefq.eq.'t' .or. clefq.eq.'0') then17970 c else if (clefq.eq.'s' .or. clefq.eq.'1') then17972 c else if (clefq.eq.'m' .or. clefq.eq.'2') then17974 c else if (clefq.eq.'a' .or. clefq.eq.'3') then17976 c else if (clefq.eq.'n' .or. clefq.eq.'4') then17978 c else if (clefq.eq.'r' .or. clefq.eq.'5') then17980 c else if (clefq.eq.'f' .or. clefq.eq.'7') then18515 character*1 clefq[all …]
695 char clefq[24]; member21856 --clefq; in getset_()24302 --clefq; in make2bar_()27590 integer ncmidf_(char *clefq, ftnlen clefq_len) in ncmidf_() argument28517 if (*(unsigned char *)clefq <= 55) { in numclef_()28518 ret_val = *(unsigned char *)clefq - 48; in numclef_()36808 --clefq; in topfile_()37249 i__8 = numclef_(clefq + iv, (ftnlen)1) + 48; in topfile_()38451 --clefq; in wsclef_()38459 *(unsigned char *)&clefq[*iv] = '9'; in wsclef_()[all …]
1407 c clefq(nvnow) = line(iposc0+nvnow:iposc0+nvnow)