diff --git a/src/property/prp.F b/src/property/prp.F
index ec5e7207ac..acd00de47a 100644
--- a/src/property/prp.F
+++ b/src/property/prp.F
@@ -22,7 +22,7 @@ c
       logical     out 
       integer     iopt
       integer     i,ipol
-      character*3 scftype
+      character*20 scftype
 c
       integer
      &     nodip,noqdp,nootp,nopop,nospin,nodpl,nodhp,nod2hp,