#! /bin/csh -f
#
#  usage: getdoc <subprogram> ...

#  retrieves documentation for NMSCMLIB subprograms whose name(s)
#  are listed on the command line. 

#  Ron Boisvert

set nonomatch

set docdir = /local/ftp/pub/repository/nms/src

foreach name ($argv)
   
      set name = `echo $name | tr A-Z a-z`
      set look = $docdir/$name.f
      if (-e $look) then
         cat $look | sed -e '/END PROLOGUE/,$d'
      else
         echo "$name not found" > /dev/tty
      endif
      
end