rotate_bitmap_90_cw Subroutine

public subroutine rotate_bitmap_90_cw(src_bitmap, dst_bitmap, src_width, src_height)

Rotate bitmap 90 degrees clockwise
For arrays: (i,j) maps to (j, width-i+1) with swapped dimensions

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=1),	intent(in)			::	src_bitmap(:,:,:)
integer(kind=1),	intent(out)			::	dst_bitmap(:,:,:)
integer,	intent(in)			::	src_width
integer,	intent(in)			::	src_height