function intget(icrlf,texte)
integer icrlf,texte
function ihxget(icrlf,texte)
integer icrlf,texte
function intchk(icrlf,texte,i1,i2)
integer icrlf,texte,i1,i2
subroutine intch(icrlf,texte,icrlf2,n,itab)
integer icrlf,texte,icrlf2,n,itab(n)
int c_intget(icrlf,texte)
int icrlf; char *texte;
int c_intchk(icrlf,texte,i1,i2)
int icrlf, i1, i2; char *texte;
int c_intch(icrlf,texte,icrlf2,n,itab)
int icrlf, icrlf2, n; char *texte;Fort_int *itab;
int ihxget_(icrlf,texte)
int icrlf; char *texte;
void c_modint(icrlf,texte,format,var)
int icrlf; char *texte, *format; int *var;
intget, c_intget lisent un entier sur stdin et renvoient sa valeur. c_intget est réservé aux appels en C.
ihxget (ihxget_) lit sur stdin un nombre hexadécimal et renvoie sa valeur. Ce programme n'est plus très utile puisque intget accecpte une donnée en hexadécimal.
intchk, c_intchk lisent sur stdin un entier et vérifient qu'il est dans l'intervalle [i1,i2], bornes comprises, et renvoient sa valeur.
intch, c_intch
lisent, sur stdin, n entiers
et renvoient leurs valeurs dans itab.
Si icrlf2 est nul texte est suivi d'un "newline".
c_modint
imprime selon le format format (syntaxe de printf) l'ancienne valeur
du nombre var. Si le réponse donnée est vide ("espace",
"TAB" ou "newline" seul),
le nombre reste inchangé.
Ex: c_modint(0,"nb= "," (%d) ",&nb);