squares2TXT Subroutine

private subroutine squares2TXT(filename, nCub3, nmarked, imarked, bounds)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: nCub3(3)
integer, intent(in) :: nmarked
integer, intent(in) :: imarked(nmarked)
double precision, intent(in) :: bounds(3,2)