SUBROUTINE PASSTR(ST)
      CHARACTER*28 STR,ST
      STR=ST
      WRITE(6,100)
  100 FORMAT(' ENTERING FORTRAN PASSTR')
      WRITE(6,200)STR
  200 FORMAT(1H ,A28)
      RETURN
      END