diff --git a/schainf/Ffiles/lagp.f b/schainf/Ffiles/lagp.f
index 9eb8d14..1464053 100644
--- a/schainf/Ffiles/lagp.f
+++ b/schainf/Ffiles/lagp.f
@@ -19,7 +19,7 @@ c
 
       character(1024) :: fqual_temp
       character(:), allocatable :: fqual
-      character(8) :: bfmodel_str
+      character bfmodel_str*8
 
       data first/.true./
 c