subroutine readSpinKMat() implicit none call kMatAA%readKMatFromFile("KDUMPAA") call kMatAB%readKMatFromFile("KDUMPAB") end subroutine readSpinKMat