C**PADBOX.FOR************************************************************
C                                                                       *
C   Version     1.00    28.12.98   RH   Original program                *
C   Version     1.01      4.1.99   RH   Add floating options 2 and 4    *
C                                                                       *
C   Card input:                                                         *
C   1.  IMODE type of padding                                           *
C             0 - add zeroes around the edge                            *
C             1 - add a single constant of perimeter average            *
C             2 - subtract a single constant of perimeter average and   *
C                  pad with zeroes around edge                          *
C             3 - add a constant for each Z-section perimeter average   *
C             4 - subtract a constant of each Z-section perimeter       *
C                  average and pad with zeroes around egde              *
C   2.  NXS,NXF,NYS,NYF,NZS,NZF number of pixels to add at each edge    *
C                                                                       *
C       Logical I/O assignments are:                                    *
C       IN                      input file                              *
C       OUT                     output file                             *
C                                                                       *
C************************************************************************