| @@ -91,8 +91,8 c write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end" | |||
|
|
91 | 91 | fqual = TRIM(fqual_temp) |
|
|
92 | 92 | bfmodel_str = 'bfmodel/' |
|
|
93 | 93 | write(*,*) "bfmodel_str: ", bfmodel_str |
|
|
94 | fqual(1:len_trim(fqual)-len_trim(bfmodel_str)) | |
|
|
95 | fqual = fqual//'weights.dat' | |
|
|
94 | c fqual(1:len_trim(fqual)-len_trim(bfmodel_str)) | |
|
|
95 | fqual = fqual(1:index(fqual, bfmodel-str))//'weights.dat' | |
|
|
96 | 96 | c write(*,*) "Final fqual",fqual,"FINAL" |
|
|
97 | 97 | |
|
|
98 | 98 | if(first) then |
General Comments 0
You need to be logged in to leave comments.
Login now