subroutine strout(string)
!  STROUT      SUBROUTINE  I/O         C.TYPSCN    SBP         90.10.11
!tpl  call strout(' string ') !string or strings to terminal
!  call strout('string')    !just one - only to avoid fortran diffs in future
character(*) string
print 1050,string
1050 format(1x,a)
return
end