Debug printing
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(supercell_type), | intent(in) | :: | self |
subroutine sc_debug_print(self)
implicit none
class(supercell_type), intent(in) :: self
write(dlun,'("Supercell debug print. Index is=",I0," nrow=",I0," ncol=",I0)') &
self%is_ind, self%nrow, self%ncol
end subroutine sc_debug_print