rotate_bitmap_90_ccw Subroutine

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

Rotate bitmap 90 degrees counter-clockwise For arrays: (i,j) maps to (height-j+1, i) 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