Searched refs:levtabl (Results 1 – 2 of 2) sorted by relevance
33120 static integer levtabl[88]; in precrd_() local33144 levtabl[i__ - 1] = 0; in precrd_()33168 levtabl[*nolevm - 1] = -1; in precrd_()33195 levtabl[nolev - 1] = comtrill_1.icrd2; in precrd_()33275 if (levtabl[ilev - 1] != 0 && levtabl[ilev] != 0) { in precrd_()33290 if (levtabl[ile] < 0) { in precrd_()33304 comtrill_1.icrdat[levtabl[ile] - 1],24); in precrd_()33310 if (levtabl[ile - 1] != 0 && levtabl[ile] != 0) { in precrd_()33328 if (levtabl[ile - 1] != 0 && levtabl[ile - 2] != 0) { in precrd_()33329 if (levtabl[ile - 2] < 0) { in precrd_()[all …]
21151 integer*4 kicrd(10),levtabl(88)21154 levtabl(i) = 021169 levtabl(nolevm) = -121193 levtabl(nolev) = icrd221255 if (levtabl(ilev).ne.0 .and. levtabl(ilev+1).ne.0) then21277 icrdat(levtabl(ile)) = ibset(icrdat(levtabl(ile)),24)21282 icrdat(levtabl(ile+1)) = ibset(icrdat(levtabl(ile+1)),24)21288 if (levtabl(ile).ne.0 .and. levtabl(ile+1).ne.0) then21306 if (levtabl(ile).ne.0 .and. levtabl(ile-1).ne.0) then21315 icrdat(levtabl(ile)) = ibset(icrdat(levtabl(ile)),23)[all …]