1 |
guez |
99 |
SUBROUTINE printflag(radpas, ok_journe, ok_instan, ok_region) |
2 |
guez |
3 |
|
3 |
guez |
12 |
! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09 |
4 |
|
|
! Auteur : P. Le Van |
5 |
guez |
3 |
|
6 |
guez |
12 |
IMPLICIT NONE |
7 |
guez |
3 |
|
8 |
guez |
12 |
INTEGER, INTENT (IN) :: radpas |
9 |
guez |
99 |
LOGICAL, INTENT (IN) :: ok_journe, ok_instan, ok_region |
10 |
guez |
3 |
|
11 |
guez |
12 |
!-------------------------------------------------- |
12 |
guez |
3 |
|
13 |
guez |
13 |
PRINT *, 'Choix des principales clés de la physique' |
14 |
guez |
3 |
|
15 |
guez |
12 |
PRINT 8, radpas |
16 |
|
|
PRINT 4, ok_journe, ok_instan, ok_region |
17 |
guez |
3 |
|
18 |
guez |
12 |
4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3) |
19 |
|
|
8 FORMAT ('radpas = ', I4) |
20 |
guez |
3 |
|
21 |
guez |
12 |
END SUBROUTINE printflag |