| @@ -89,8 +89,8 c write(*,*) "BEFORE GET_PATH" | |||||
| 89 | call get_path(fqual_temp) |
|
89 | call get_path(fqual_temp) | |
| 90 | c write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end" |
|
90 | c write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end" | |
| 91 | fqual = TRIM(fqual_temp) |
|
91 | fqual = TRIM(fqual_temp) | |
| 92 | bfmodel = 'bfmodel/' |
|
92 | bfmodel_str = 'bfmodel/' | |
| 93 | fqual(1:len_trim(fqual)-len_trim(bfmodel)) |
|
93 | fqual(1:len_trim(fqual)-len_trim(bfmodel_str)) | |
| 94 | fqual = fqual//'weights.dat' |
|
94 | fqual = fqual//'weights.dat' | |
| 95 | c write(*,*) "Final fqual",fqual,"FINAL" |
|
95 | c write(*,*) "Final fqual",fqual,"FINAL" | |
| 96 |
|
96 | |||
General Comments 0
You need to be logged in to leave comments.
Login now