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