affiche.f90

Last modified 9 /5 /2000.

Files Programmes Routines Functions Includes Search Modules

Source original

SUBROUTINE affint

affint is called by


affint calls
affint does not use anything.
affint does not include anything.
(n) ; INTEGER :: n
  affreal(n)
  PRINT*,'n est entier', affreal(n)
  affreal(n)
END SUBROUTINE affint
SUBROUTINE affreal

affreal is called by
affreal does not call anything.
affreal does not use anything.
affreal does not include anything.
(r,&
  a)
; REAL :: r
  PRINT*,'r est real',r
END SUBROUTINE affreal
affiche.f90->affreal->10

REAL FUNCTION choix

choix is called by
choix does not call anything.
choix does not use anything.
choix does not include anything.
(a,b)
  choix = b ; PRINT*,'b est real',b
END FUNCTION choix