Searched defs:newinit_x (Results 1 – 1 of 1) sorted by relevance
391 subroutine newinit_x( h, iverbosity ) subroutine411 REAL(DP), INTENT(IN) :: h(3,3)412 INTEGER, INTENT(IN) :: iverbosity414 REAL(DP) :: rat1, rat2, rat3415 INTEGER :: ig