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