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