SUBROUTINE PUT_DIB_BLOCK@( FILENAME, PARRAY, AW, AH, ADX,
+ ADY, W, H, NBPP, ERCODE )
All of the arguments are input values except for ERCODE which returns the error
FILENAME is the name of the BMP file.
AW and AH are dimensions of PARRAY.
ADX and ADY are offsets used when reading the data from PARRAY.
W and H are the width and height of the image data to be copied.
PARRAY is the same as in GET_DIB_BLOCK@.
NBPP is currently not used but should be set to 24 because currently this
routine always writes out BMP files with 24 bits per pixel.
ERROR will return: