 
        Parameter (Nummax=3000)       ! maximum records in a ...TR.dat file.
      Parameter (Nreclen=140)       ! Length of input records for ...TR.dat
      Parameter (Nreclen2=NrecLen+2)  ! Length of input records for ...TR.dat
 
        Common / NLCommon / Names, Zinput, Nnames
 
        Integer    NNames
        Character*32 Names(NumMax)
        Character*120 Zinput(NumMax)
 
 
      SAVE /nlcommon/
