test.f90

Last modified 9 /5 /2000.

Files Programmes Routines Functions Includes Search Modules

Source original

SUBROUTINE test

test is not called.
test calls


test does not use anything.
test does not include anything.

  IMPLICIT NONE
  TYPE (point) :: c, a = point(0.,1.), b = point(1.,2.)
  INTEGER :: n = 2
  c = a + b ; PRINT*,'c=',c
  CALL private_subroutine(a)
  PRINT*,'choix=',choix(1,2,&
! le choix est aisé
 

       3)
CONTAINS
test.f90->test->10

  SUBROUTINE private_subroutine

private_subroutine is called by
private_subroutine calls
private_subroutine does not use anything.
private_subroutine does not include anything.
(a)
    PRINT*, 'This is not a comment'
 ! But this is a real one

    print*, 'Voici ',choix(a),' ici'
  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)
    INTEGER :: choix
    choix = b
  END FUNCTION choix
END SUBROUTINE test