Aritmeettinen IF on ohjelmointikielten Fortran (varhaisista versioista Fortran 90:een, jossa se poistettiin käytöstä) ja Focal operaattori . Operaattori määrittää aritmeettisen lausekkeen ja kolme otsikkoa, joihin ohjaus siirretään, jos lauseke on pienempi kuin nolla, yhtä suuri kuin nolla tai suurempi kuin nolla:
JOS ( lauseke ) on_negatiivinen , on_nolla , on_positiivinenAritmeettinen IF oli alun perin ehdollisen operaattorin ainoa muunnos Fortranissa. Fortran 66:sta lähtien se korvattiin loogisella IF:llä ja Fortran 77 - rakenteellisella IF:llä, joka on semanttisesti samanlainen kuin muiden ohjelmointikielten haaraoperaattorit .
Käyttöesimerkki C Ohjelma ottaa luvun käyttäjältä C ja tulostaa sen suhteen nollaan . _ _ OHJELMA TESTIF IMPLICIT EI MITÄÄN KOKONAISLUKU N KIRJOITA ( * , "('Anna numero: ',$)" ) LUE ( * , * ) N JOS ( N ) 100 , 200 , 300 100 WRITE ( * , * ) N , 'vähemmän kuin nolla'. GOTO 400 200 WRITE ( * , * ) N , 'on nolla'. GOTO 400 300 WRITE ( * , * ) N , 'suurempi sitten nolla' GOTO 400 400 JATKA LOPETA OHJELMA