affiche.f90

Fichiers Programmes Routines Fonctions 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->affiche.f90:affiche.f90:0->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