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
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