program.f90

Fichiers Programmes Routines Fonctions Includes Search Modules

Source original

PROGRAM f90
f90 is not called.
f90 calls


f90 uses
f90 does not include anything.

  IMPLICIT NONE
  USE type_point
  INTERFACE duchemu
     SUBROUTINE sp1(n)
       INTEGER, INTENT(in) :: n
       INTERFACE duche
          SUBROUTINE sp2(n)
            INTEGER, INTENT(in) :: n
program.f90->f90:program.f90:1->10

          END SUBROUTINE sp2
       END INTERFACE
     END SUBROUTINE sp1
  END INTERFACE
  TYPE (point) :: c, a = point(0.,1.), b = point(1.,2.)
  INTEGER :: n = 2
  c = a + b ; PRINT*,'c=',c
  CALL affint(n)
  CALL private_subroutine
  CALL duchemu
program.f90->f90:program.f90:1->20

  PRINT*,'choix=',choix(1,2,&
! le choix est aisé
 

       3)
CONTAINS
  SUBROUTINE private_subroutine
private_subroutine is called by
private_subroutine does not call anything.
private_subroutine does not use anything.
private_subroutine does not include anything.
(a,&
b)

    PRINT*, 'This  is not a comment'
 ! But this is a real one
 

  END SUBROUTINE private_subroutine
  FUNCTION choix
choix is called by
choix does not call anything.
choix does not use anything.
choix does not include anything.
(a, &
       b, &
       c)

program.f90->choix:program.f90:27->30

    INTEGER INTENT (in) :: a, b, c
    INTEGER :: choix
    choix = b
  END FUNCTION choix
END PROGRAM f90