##// END OF EJS Templates
schain
RSS
lagp.f update 8
rflores -
r1629:4f9959ba9c14
parent child
Show More
Side by Side Unified
Context file:
r1629:4f9959ba9c14 Loading diff...:
Show file before | Show file after | Hide comments
@@ -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.dat'
95 fqual = fqual(1:index(fqual, bfmodel_str))//'weights.dat'
96 c write(*,*) "Final fqual",fqual,"FINAL"
96 c write(*,*) "Final fqual",fqual,"FINAL"
97
97
98 if(first) then
98 if(first) then
General Comments 0
You need to be logged in to leave comments. Login now