      SUBROUTINE G2WALL_ASYM_PER_PHYS_SPARSE_IJ(G1,R1,R2,HH)
usunac USE FACT



      SUBROUTINE G2WALL_ASYM_SELF_PHYS_SPARSE_IJ(G1,R1,R2,HH)
usunac USE FACT



      SUBROUTINE G2WALL_ASYM_PERSELF_INVE_SPARSE_IJ(G1,I,J,HH)
usunac USE FACT



      SUBROUTINE INC_GAMMA(INC_GAM,YY,MM)
corrected



      SUBROUTINE G2_PER_SPARSE_PACKED_COL(G,jG,iG,CONF,HH,RO_CUTOFF,
corrected

      SUBROUTINE G2WALL_ASYM_PER_PHYS_SPARSE_IJ(G1,R1,R2,HH)
zabezpieczenie dla duzych R1, R2



      SUBROUTINE G2WALL_ASYM_BACK_SPARSE_IJ(G1,HH)
do correction from 
      G1( H(0,1,M) , H(0,1,M) )=G1( H(0,1,M) , H(0,1,M) )+GB2D
 to
      G1( H(0,1,M) , H(0,1,M) )=GB2D



      SUBROUTINE G_SPARSE_PACKED_COL(G,jG,iG,CONF,HH,RO_CUTOFF,
corrected
