# verify - make sure the filename are valid, if not make it so
#  
include ratdef
subroutine verify(infile)
character infile(MAXLINE)
character outfile(MAXLINE)
#  
integer aone,bone,temp
#  
aone=1
bone=1
temp=1
while((infile(temp)^=NEWLINE)&(infile(temp)^=EOS)){
      if((infile(temp)>64)&(infile(temp)<91)){
          outfile(temp)=infile(temp)
      }
      else if((infile(temp)>47)&(infile(temp)<58)){
               outfile(temp)=infile(temp)
           }
      else outfile(temp)=PERIOD
      temp=temp+1
}  
outfile(temp)=EOS
call scopy(outfile,aone,infile,bone)
return
end