subroutine stringfy(string) character*60 string c utility for converting into string string = 'START' return end