*Fix the bug in gnu compiler(titan)

The bug comes when we set dims(:) type wrong and thus we get extremly large number of the array