Searched refs:slurg (Results 1 – 5 of 5) sorted by relevance
215 slurg = { \pgrace { A32[ f a] } }
5275 slurg(ig) = .false.5476 slurg(ig) = .false.10651 logical upg,slurg,slashg10686 slurg(ngrace) = .false.10697 if (slurg(ngrace))10720 slurg(ngrace) = .true.12649 c slurg(ngrace) = .false.12660 c if (slurg(ngrace))12683 c slurg(ngrace) = .true.14922 logical upg,slurg,slashg,merge[all …]
536 logical upg[37], slurg[37], slashg[37]; member8338 if (comgrace_1.slurg[*ig - 1] && ! isgaft && ! iswaft) { in dograce_()8549 if (comgrace_1.slurg[*ig - 1] && (iswaft || isgaft)) { in dograce_()8601 comgrace_1.slurg[*ig - 1] = FALSE_; in dograce_()8792 if (comgrace_1.slurg[*ig - 1] && ! isgaft && ! iswaft) { in dograce_()8956 if ((isgaft || iswaft) && comgrace_1.slurg[*ig - 1]) { in dograce_()9013 comgrace_1.slurg[*ig - 1] = FALSE_; in dograce_()16850 comgrace_1.slurg[comgrace_1.ngrace - 1] = FALSE_; in getgrace_()16864 if (comgrace_1.slurg[comgrace_1.ngrace - 1]) { in getgrace_()16892 comgrace_1.slurg[comgrace_1.ngrace - 1] = TRUE_; in getgrace_()[all …]
408960 slurg † slurg [v.]