| @@ -1,24 +1,24 | |||
|
|
1 | 1 | |
|
|
2 | 2 | fqual_temp = TRIM(ppath)//TRIM(cpath) |
|
|
3 | 3 | the_len = LEN_TRIM(fqual_temp) |
|
|
4 | 4 | |
|
|
5 | 5 | return |
|
|
6 | 6 | end |
|
|
7 | 7 | |
|
|
8 | subroutine get_path(fqual,the_len) | |
|
|
8 | subroutine get_path_reader(fqual,the_len) | |
|
|
9 | 9 | c |
|
|
10 | 10 | c create table of magnetic field components |
|
|
11 | 11 | c |
|
|
12 | 12 | c character*47 L |
|
|
13 | 13 | |
|
|
14 | 14 | integer the_len |
|
|
15 | 15 | character(the_len) :: fqual |
|
|
16 | 16 | character(1024) :: fqual_temp |
|
|
17 | 17 | |
|
|
18 | 18 | call get_len(the_len,fqual_temp) |
|
|
19 | 19 | fqual = TRIM(fqual_temp) |
|
|
20 | 20 | write(*,*) "Done" |
|
|
21 | 21 | |
|
|
22 | 22 | return |
|
|
23 | 23 | end |
|
|
24 | 24 | |
General Comments 0
You need to be logged in to leave comments.
Login now