Please enable JavaScript to use RhodeCode Enterprise
##// END OF EJS Templates
rflores - Fri, 02 Jun 2023 20:35:11
Show More
0
schainf/Ffiles/get_path_1_reader.f
created
644
+11
0
@@
-0,0
+1,11
1
2
subroutine get_len ( the_len , fqual_temp )
3
c
4
c create table of magnetic field components
5
c
6
c character*47 L
7
8
character ( 1024 ) :: fqual_temp
9
character ( 512 ) :: ppath
10
character ( 512 ) :: cpath
11
integer the_len
0
schainf/Ffiles/get_path_2_reader.f
created
644
+24
0
@@
-0,0
+1,24
1
2
fqual_temp = TRIM ( ppath ) // TRIM ( cpath )
3
the_len = LEN_TRIM ( fqual_temp )
4
5
return
6
end
7
8
subroutine get_path ( fqual , the_len )
9
c
10
c create table of magnetic field components
11
c
12
c character*47 L
13
14
integer the_len
15
character ( the_len ) :: fqual
16
character ( 1024 ) :: fqual_temp
17
18
call get_len ( the_len , fqual_temp )
19
fqual = TRIM ( fqual_temp )
20
write ( * , * ) "Done"
21
22
return
23
end
24
0
setup.py
+6
0
@@
-89,14
+89,20
setup(
89
89
90
90
main_path = os . getcwd ()
91
91
child_path = '/schainf/Ffiles/bfmodel/'
92
child_path_r = '/schainf/Ffiles/jlib26feb2001'
92
93
#print("main_path: ", main_path)
93
94
my_str = ' ' + "ppath = " + " \" " + main_path + " \"\n "
94
95
my_str_2 = ' ' + "cpath = " + " \" " + child_path + " \" "
96
my_str_2_r = ' ' + "cpath = " + " \" " + child_path_r + " \" "
95
97
96
98
#'''
97
99
with open ( './schainf/Ffiles/get_path_1.f' , 'r' ) as path1 : data1 = path1 . read ()
98
100
with open ( './schainf/Ffiles/get_path_2.f' , 'r' ) as path2 : data2 = path2 . read ()
99
101
with open ( './schainf/Ffiles/get_path.f' , 'w' ) as final : final . write ( data1 + my_str + my_str_2 + data2 )
102
103
with open ( './schainf/Ffiles/get_path_1_reader.f' , 'r' ) as p1 : data1_r = p1 . read ()
104
with open ( './schainf/Ffiles/get_path_2_reader.f' , 'r' ) as p2 : data2_r = p2 . read ()
105
with open ( './schainf/Ffiles/get_path_reader.f' , 'w' ) as final_r : final_r . write ( data1_r + my_str + my_str_2_r + data2_r )
100
106
#'''
101
107
102
108
from numpy.distutils.core import Extension , setup
Site-wide shortcuts
/
Use quick search box
g h
Goto home page
g g
Goto my private gists page
g G
Goto my public gists page
g 0-9
Goto bookmarked items from 0-9
n r
New repository page
n g
New gist page
Repositories
g s
Goto summary page
g c
Goto changelog page
g f
Goto files page
g F
Goto files page with file search activated
g p
Goto pull requests page
g o
Goto repository settings
g O
Goto repository access permissions settings
t s
Toggle sidebar on some pages
