diff --git a/schainf/Ffiles/lagp.f b/schainf/Ffiles/lagp.f index 93bc41a..0e3a8b3 100644 --- a/schainf/Ffiles/lagp.f +++ b/schainf/Ffiles/lagp.f @@ -88,7 +88,7 @@ c write(*,*) "BEFORE GET_PATH" call get_path(fqual_temp) c write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end" fqual = TRIM(fqual_temp) - fqual = fqual//'/weights.dat' + fqual = fqual//'weights.dat' c write(*,*) "Final fqual",fqual,"FINAL" if(first) then