Searched refs:INUMER (Results 1 – 5 of 5) sorted by relevance
32 NOUVNU = INUMER.EQ.-1.AND.INUMER0.EQ.0152 INUMER0 = INUMER250 IF (INUMER.NE.0) THEN255 IF (INUMER.LT.0) THEN831 IF (INUMER.GT.0) THEN1281 IF (IFC.LT.0.OR.INUMER.LT.0) THEN1282 IF (INUMER.NE.0) THEN1290 IF (INUMER.LT.0) THEN1323 IF (INUMER.EQ.-1) THEN1329 IF (INUMER.GT.-3.OR.NNN.NE.0)[all …]
174 INUMER0 = INUMER1641 INUMER = 01645 INUMER = 14143 IF (INUMER.EQ.0) THEN4144 INUMER = -14145 ELSEIF(INUMER.EQ.-1) THEN4146 INUMER = 14147 ELSEIF(INUMER.EQ.1) THEN4148 INUMER = -24150 INUMER = -3[all …]
108 IF (INUMER.EQ.0) THEN110 ELSEIF(INUMER.EQ.1) THEN112 ELSEIF(INUMER.EQ.-1) THEN114 ELSEIF(INUMER.EQ.-2) THEN
9 & ,INUMER,IGROUP,IPREFC,IORIENT,IMAILL,IVIT local
67 INUMER = 0