##// END OF EJS Templates
schain
RSS
lagp.f update 2
rflores -
r1621:c024a8a81a90
parent child
Show More
Side by Side Unified
Context file:
r1621:c024a8a81a90 Loading diff...:
Show file before | Show file after | Hide comments
@@ -88,7 +88,7 c write(*,*) "BEFORE GET_PATH"
88 call get_path(fqual_temp)
88 call get_path(fqual_temp)
89 c write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end"
89 c write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end"
90 fqual = TRIM(fqual_temp)
90 fqual = TRIM(fqual_temp)
91 fqual = fqual//'/weights.dat'
91 fqual = fqual//'weights.dat'
92 c write(*,*) "Final fqual",fqual,"FINAL"
92 c write(*,*) "Final fqual",fqual,"FINAL"
93
93
94 if(first) then
94 if(first) then
General Comments 0
You need to be logged in to leave comments. Login now