Fortran

Hi Dear Friends,
Dear all can any one help that how to write a subroutine for single circular cylinder using Fortran language that when i need to used Tecplot the picture of cylinder visible. Like i find for square cylinder
"WRITE(11,) ‘GEOMETRY M=GRID, FC=WHITE,F=POINT’
WRITE(11,
) ‘2’
WRITE(11,) ‘4’
WRITE(11,
) x1,y1
WRITE(11,) x1,y2
WRITE(11,
) x2,y2
WRITE(11,) x2,y1
WRITE(11,
) ‘2’
WRITE(11,) x1,y1
WRITE(11,
) x2,y1 "
so when we draw pictures using tecplot the picture is visible. So how to write for single circular cylinder such code in Fortran. If any friend have such subroutine, it will be really appreciated .
Thanks in advance
khan