1*
2* $Id$
3*
4
5*     ***********************************
6*     *             			*
7*     *           psi_get_version	*
8*     *             			*
9*     ***********************************
10      integer function psi_get_version()
11      implicit none
12
13*    *** local variables ***
14      integer version,l
15      character*50 filename
16      character*255 full_filename
17
18      integer MASTER,taskid
19      parameter(MASTER=0)
20
21*     ***** local functions ****
22      character*50 control_input_psi
23      external     control_input_psi
24
25      call Parallel_taskid(taskid)
26
27*     **** open ELCIN binary file ****
28      if (taskid.eq.MASTER) then
29         filename = control_input_psi()
30         call util_file_name_noprefix(filename,.false.,
31     >                                .false.,
32     >                       full_filename)
33         l = index(full_filename,' ') -1
34         call openfile(4,full_filename,l,'r',l)
35         call iread(4,version,1)
36         call closefile(4)
37      end if
38
39c     **** send header to all nodes ****
40      call Parallel_Brdcst_ivalue(MASTER,version)
41
42      psi_get_version = version
43      return
44      end
45
46
47
48*     ***********************************
49*     *                                 *
50*     *         epsi_get_version        *
51*     *                                 *
52*     ***********************************
53
54      integer function epsi_get_version()
55      implicit none
56
57*    *** local variables ***
58      integer version,l
59      character*50 filename
60      character*255 full_filename
61
62      integer MASTER,taskid
63      parameter(MASTER=0)
64
65
66*     ***** local functions ****
67      character*50 control_input_epsi
68      external     control_input_epsi
69
70      call Parallel_taskid(taskid)
71
72*     **** open ELCIN binary file ****
73      if (taskid.eq.MASTER) then
74         filename = control_input_epsi()
75         call util_file_name_noprefix(filename,.false.,
76     >                                .false.,
77     >                       full_filename)
78         l = index(full_filename,' ') -1
79         call openfile(4,full_filename,l,'r',l)
80         call iread(4,version,1)
81         call closefile(4)
82      end if
83
84c     **** send header to all nodes ****
85      call Parallel_Brdcst_ivalue(MASTER,version)
86
87
88      epsi_get_version = version
89      return
90      end
91
92
93*     ***********************************
94*     *                                 *
95*     *           v_psi_get_version     *
96*     *                                 *
97*     ***********************************
98      integer function v_psi_get_version()
99      implicit none
100
101*    *** local variables ***
102      integer version,l
103      character*50 filename
104      character*255 full_filename
105
106      integer MASTER,taskid
107      parameter(MASTER=0)
108
109*     ***** local functions ****
110      character*50 control_input_v_psi
111      external     control_input_v_psi
112
113      call Parallel_taskid(taskid)
114
115*     **** open ELCIN binary file ****
116      if (taskid.eq.MASTER) then
117         filename = control_input_v_psi()
118         call util_file_name_noprefix(filename,.false.,
119     >                                .false.,
120     >                       full_filename)
121         l = index(full_filename,' ') -1
122         call openfile(4,full_filename,l,'r',l)
123         call iread(4,version,1)
124         call closefile(4)
125      end if
126
127c     **** send header to all nodes ****
128      call Parallel_Brdcst_ivalue(MASTER,version)
129
130      v_psi_get_version = version
131      return
132      end
133
134
135
136