phylmd/Radlwsw/radopt.f

module radopt

  ! From phylmd/radopt.h, version 1.1.1.1, 2004/05/19 12:53:09

  implicit none

  LOGICAL, PARAMETER:: LEVOIGT = .FALSE.
  INTEGER, PARAMETER:: NOVLP = 1
  INTEGER, PARAMETER:: KAER = 0

end module radopt
1	guez	3	module radopt
2
3	guez	71	! From phylmd/radopt.h, version 1.1.1.1, 2004/05/19 12:53:09
4	guez	3
5			implicit none
6
7	guez	71	LOGICAL, PARAMETER:: LEVOIGT = .FALSE.
8			INTEGER, PARAMETER:: NOVLP = 1
9			INTEGER, PARAMETER:: KAER = 0
10	guez	3
11			end module radopt