Sources/phylmd/printflag.f

SUBROUTINE printflag(radpas, ok_journe, ok_instan, ok_region)

  ! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09
  ! Auteur : P. Le Van

  IMPLICIT NONE

  INTEGER, INTENT (IN) :: radpas
  LOGICAL, INTENT (IN) :: ok_journe, ok_instan, ok_region

  !--------------------------------------------------

  PRINT *, 'Choix des principales clés de la physique'

  PRINT 8, radpas
  PRINT 4, ok_journe, ok_instan, ok_region

4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3)
8 FORMAT ('radpas = ', I4)

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