COSMAP_PUTMAP - put a rectangular area into a big image

SUBROUTINE COSMAP_PUTMAP ( BD, STARTX, STARTY, ENDX, ENDY, BUFFER, STATUS )

   BD = INTEGER (given)
            bigimage descriptor
   STARTX = INTEGER (given)
            lowest pixel number in scan direction 
   STARTY = INTEGER (given)
            lowest pixel number in lane direction 
   ENDX = INTEGER (given)
            highest pixel number in scan direction 
   ENDY = INTEGER (given)
            highest pixel number in lane direction 
   BUFFER(*) = INTEGER*2 (given)
            image data
   STATUS = INTEGER (given and returned)
            global status