KernelGetCoordinateSystemID

INTERFACE
  MODULE FUNCTION KernelGetCoordinateSystemID(name) RESULT(Ans)
    CHARACTER(LEN=*), INTENT(IN) :: name
    INTEGER(I4B) :: ans
  END FUNCTION KernelGetCoordinateSystemID
END INTERFACE