libf/dyn3d/getparam.f90

MODULE getparam

  ! From dyn3d/getparam.F90, version 1.1.1.1 2004/05/19 12:53:07

   USE getincom

   INTERFACE getpar
     MODULE PROCEDURE getparamr, getparami, getparaml
   END INTERFACE

   private getparamr, getparami, getparaml
   INTEGER, PARAMETER :: out_eff=99

CONTAINS

  SUBROUTINE ini_getparam(fichier)
    !
    IMPLICIT NONE
    !
    CHARACTER*(*) :: fichier
    open(out_eff, file=fichier, status='unknown', form='formatted') 
  END SUBROUTINE ini_getparam

  !**********************************************************

  SUBROUTINE fin_getparam
    !
    IMPLICIT NONE
    !
    close(out_eff)

  END SUBROUTINE fin_getparam

  !**********************************************************

  SUBROUTINE getparamr(TARGET, def_val, ret_val, comment)
    !
    IMPLICIT NONE
    !
    !   Get a real scalar. We first check if we find it
    !   in the database and if not we get it from the run.def
    !
    !   getinr1d and getinr2d are written on the same pattern
    !
    CHARACTER*(*) :: TARGET
    REAL :: def_val
    REAL :: ret_val
    CHARACTER*(*) :: comment

    ret_val=def_val
    call getin(TARGET, ret_val)

    write(out_eff, *) '******'
    write(out_eff, *) comment
    write(out_eff, *) TARGET, '=', ret_val

  END SUBROUTINE getparamr

  !**********************************************************

  SUBROUTINE getparami(TARGET, def_val, ret_val, comment)
    !
    IMPLICIT NONE
    !
    !   Get a real scalar. We first check if we find it
    !   in the database and if not we get it from the run.def
    !
    !   getinr1d and getinr2d are written on the same pattern
    !
    CHARACTER*(*) :: TARGET
    INTEGER :: def_val
    INTEGER :: ret_val
    CHARACTER*(*) :: comment

    ret_val=def_val
    call getin(TARGET, ret_val)

    write(out_eff, *) '***'
    write(out_eff, *) '*** ', comment, ' ***'
    write(out_eff, *) comment
    write(out_eff, *) TARGET, '=', ret_val

  END SUBROUTINE getparami

  !**********************************************************

  SUBROUTINE getparaml(TARGET, def_val, ret_val, comment)
    !
    IMPLICIT NONE
    !
    !   Get a real scalar. We first check if we find it
    !   in the database and if not we get it from the run.def
    !
    !   getinr1d and getinr2d are written on the same pattern
    !
    CHARACTER*(*) :: TARGET
    LOGICAL :: def_val
    LOGICAL :: ret_val
    CHARACTER*(*) :: comment

    ret_val=def_val
    call getin(TARGET, ret_val)

    write(out_eff, *) '***'
    write(out_eff, *) '*** ', comment, ' ***'
    write(out_eff, *) TARGET, '=', ret_val

  END SUBROUTINE getparaml

END MODULE getparam
1	guez	3	MODULE getparam
2	guez	25
3	guez	44	! From dyn3d/getparam.F90, version 1.1.1.1 2004/05/19 12:53:07
4	guez	25
5	guez	30	USE getincom
6	guez	44
7	guez	3	INTERFACE getpar
8	guez	44	MODULE PROCEDURE getparamr, getparami, getparaml
9	guez	3	END INTERFACE
10
11	guez	44	private getparamr, getparami, getparaml
12	guez	3	INTEGER, PARAMETER :: out_eff=99
13
14			CONTAINS
15	guez	44
16	guez	3	SUBROUTINE ini_getparam(fichier)
17			!
18			IMPLICIT NONE
19			!
20			CHARACTER() :: fichier
21	guez	44	open(out_eff, file=fichier, status='unknown', form='formatted')
22	guez	3	END SUBROUTINE ini_getparam
23
24	guez	44	!**********************************************************
25
26	guez	3	SUBROUTINE fin_getparam
27			!
28			IMPLICIT NONE
29			!
30			close(out_eff)
31
32			END SUBROUTINE fin_getparam
33
34	guez	44	!**********************************************************
35
36			SUBROUTINE getparamr(TARGET, def_val, ret_val, comment)
37	guez	3	!
38			IMPLICIT NONE
39			!
40			! Get a real scalar. We first check if we find it
41			! in the database and if not we get it from the run.def
42			!
43			! getinr1d and getinr2d are written on the same pattern
44			!
45			CHARACTER() :: TARGET
46			REAL :: def_val
47			REAL :: ret_val
48			CHARACTER() :: comment
49
50			ret_val=def_val
51	guez	44	call getin(TARGET, ret_val)
52	guez	3
53	guez	44	write(out_eff, ) '*****'
54			write(out_eff, *) comment
55			write(out_eff, *) TARGET, '=', ret_val
56	guez	3
57			END SUBROUTINE getparamr
58
59	guez	44	!**********************************************************
60
61			SUBROUTINE getparami(TARGET, def_val, ret_val, comment)
62	guez	3	!
63			IMPLICIT NONE
64			!
65			! Get a real scalar. We first check if we find it
66			! in the database and if not we get it from the run.def
67			!
68			! getinr1d and getinr2d are written on the same pattern
69			!
70			CHARACTER() :: TARGET
71			INTEGER :: def_val
72			INTEGER :: ret_val
73			CHARACTER() :: comment
74
75			ret_val=def_val
76	guez	44	call getin(TARGET, ret_val)
77	guez	3
78	guez	44	write(out_eff, ) '**'
79			write(out_eff, ) ' ', comment, ' *'
80			write(out_eff, *) comment
81			write(out_eff, *) TARGET, '=', ret_val
82	guez	3
83			END SUBROUTINE getparami
84
85	guez	44	!**********************************************************
86
87			SUBROUTINE getparaml(TARGET, def_val, ret_val, comment)
88	guez	3	!
89			IMPLICIT NONE
90			!
91			! Get a real scalar. We first check if we find it
92			! in the database and if not we get it from the run.def
93			!
94			! getinr1d and getinr2d are written on the same pattern
95			!
96			CHARACTER() :: TARGET
97			LOGICAL :: def_val
98			LOGICAL :: ret_val
99			CHARACTER() :: comment
100
101			ret_val=def_val
102	guez	44	call getin(TARGET, ret_val)
103	guez	3
104	guez	44	write(out_eff, ) '**'
105			write(out_eff, ) ' ', comment, ' *'
106			write(out_eff, *) TARGET, '=', ret_val
107	guez	3
108			END SUBROUTINE getparaml
109
110			END MODULE getparam