Revision 10ef4410c16710d7caf8c0882b7efbac894d49ed authored by M. Helena Gonçalves on 22 September 2012, 00:00:00 UTC, committed by Gabor Csardi on 22 September 2012, 00:00:00 UTC 
version 1.1-1-dup
1 parent 3f407ee
Raw File
mat2.f
      subroutine mat2(p1,p2,P)
C       creates 2x2 MC transition matrix, given probs of 1's
      implicit double precision (a-h,o-z)
      dimension P(2,2)
      P(1,1)=1-p1
      P(1,2)=p1
      P(2,1)=1-p2
      P(2,2)=p2
      return
      end
back to top