ExportArraySize.f90 Source File


Contents

Source Code


Source Code

integer :: fh
if(present(OptionalFileHandle) )then
    fh=OptionalFileHandle
endif

write(fh,*) size(Mat,RankNum)