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