--- pymc/gibbsit.f.old	2008-10-02 02:26:37.000000000 +0200
+++ pymc/gibbsit.f	2009-04-03 03:25:08.000000000 +0200
@@ -476,7 +476,8 @@
 
       character curterms(20)*24
       character currecrd*512
-      character delimit*1 /' '/
+      character delimit*1 
+      data delimit/' '/
 
       integer   collimit
       integer   curcnt
@@ -747,7 +748,8 @@
 
       character septerms(20)*24
       character charinpt*512
-      character delimit*1 /' '/
+      character delimit*1 
+      data delimit /' '/
 
       integer   veclimit
       integer   v1
