CALL SEQUENCE...
       newnam  IN OUT INPUT OUTPUT [-name VAL1]
 
 
      DESCRIPTION...
       newnam - CHANGES THE NAME IN IBUF(3) OF ALL RECORDS ON A FILE
 
 
      AUTHOR  - J.D.Henderson, JUL 10/81.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/newnam.ptn,v 4.8 2014/09/25 20:20:51 dugas Exp $
 
 
      PURPOSE - COPIES FILE IN TO FILE OUT RE-SETTING THE THIRD WORD OF
                THE LABEL IN EACH RECORD TO A NEW NAME READ FROM A CARD.
 
 
      INPUT FILE...
 
       IN  = FILE TO BE RENAMED.
 
      OUTPUT FILE...
       OUT = COPY OF IN WITH ALL RECORDS RENAMED
 
 
      INPUT PARAMETER...
 
       NAME = NEW NAME TO BE INSERTED INTO LABEL WORD 3.
 
       READ( 5,5010 ) NAME
 5010  FORMAT(11X,A4)
 
 
      EXAMPLE OF INPUT CARD...
 
    NEWNAM VORT
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 NO VALID RECORDS FOUND IN FILE IN
        2 PREMATURE EOF IN FILE IN
        3 ERROR ABORT READING INPUT
        4 CANNOT CHANGE PACKING TYPE