subroutine RITE ! Variables character (len=*) :: STRING end subroutine RITE
character (len=*) :: STRING