




















































































































 


































































































































































 

























































































































































































































 































































































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































subroutine IP2_calc_inv3 (g3, gu3)
  use matinv
  implicit none
  REAL*8, intent(in)  :: g3(3,3)
  REAL*8, intent(out) :: gu3(3,3)
  call calc_inv3 (g3, gu3)
end subroutine IP2_calc_inv3
