PROGRAM PASSTEST
      EXTERNAL PASSTR
      WRITE(6,100)
  100 FORMAT(' CALLING PASSTR')
      CALL PASSTR('TESTING A STRING PARAM')
      WRITE(6,200)
  200 FORMAT(' DID IT WORK')
      STOP
      END