real*8 function realgt(icrlf,texte)
integer icrlf,texte
real*8 function realck(icrlf,texte,r1,r2)
integer icrlf,texte
real r1,r2
subroutine realch(icrlf,texte,icrlf2,n,rtab)
integer icrlf,texte,icrlf2,n
real rtab(n)
#include <inrimage/image.h>
float c_realgt(icrlf,text)
int icrlf; char *text;
c_realch(icrlf,texte,icrlf2,n,rtab)
int icrlf,icrlf2,n;
char *text;float *rtab;
float realck_(icrlf,texte,r1,r2)
Fort_int *icrlf;char *texte;float *r1,*r2;
realch_(icrlf,texte,icrlf2,n,rtab)
Fort_int *icrlf, *icrlf2, *n;char *texte;float *rtab;
void c_modreal(icrlf,text,format,var)
int icrlf; char *text, *format; float *var;
realgt, c_realgt
lisent un réel sur stdin
et renvoient sa valeur.
ATTENTION! en Fortran, il faut déclarer REAL*8 REALGT.
realck (realck_)
lit un réel sur stdin,
vérifie qu'il est dans l'intervalle [r1,r2], bornes comprisses,
et renvoie sa valeur.
ATTENTION! en Fortran, il faut déclarer REAL*8 REALCK.
realch (realch_)
lit, sur stdin, n réels
et renvoie leurs valeurs dans rtab.
Si icrlf2 est nul texte est suivi d'un newline.
c_modreal
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_modreal(0,"nb= "," (%f) ",&nb);