Pad a dimensions array up to 7D with ones
CALL AR7_PAD( NDIM, DIMS, STATUS )
Before arrays can be handled by the AR7 package their dimensions must be padded with ones to enable them to be declared properly. This routine performs this padding.