subroutine readcomfile ! Variables character (len=*) :: cline integer :: lensig end subroutine readcomfile
character (len=*) :: cline
integer :: lensig