Ticket #19136: patch-pymc-gibbsit.f.diff

File patch-pymc-gibbsit.f.diff, 557 bytes (added by max@…, 16 years ago)

  • pymc/gibbsit.f

    old new  
    476476
    477477      character curterms(20)*24
    478478      character currecrd*512
    479       character delimit*1 /' '/
     479      character delimit*1
     480      data delimit/' '/
    480481
    481482      integer   collimit
    482483      integer   curcnt
    … …  
    747748
    748749      character septerms(20)*24
    749750      character charinpt*512
    750       character delimit*1 /' '/
     751      character delimit*1
     752      data delimit /' '/
    751753
    752754      integer   veclimit
    753755      integer   v1