lib/fortran/script/extractnames

   1 #!/bin/bash
   2
   3 #Show the  defined symbols in an object file or library
   4
   5 ldc $1 | egrep "^[A-Z].*\((6)|0-0\)"| awk '{print $1}'