Version:  c31a1
Date   :  16-Aug-2003
File   : source/io/paramio.src 
Contributed by Bernard R. Brooks (brbrooks@helix.nih.gov)

1. The variable in should be I in lines 2850-2855

Lines 2850-2852
           MCTP(in)=ALLHP(IReal8(GSCTP(in)*GSCTP(in)*4),'parmio.src',
    $                    'PARRDR','MCTP(in)')
changed to

           MCTP(I)=ALLHP(IReal8(GSCTP(I)*GSCTP(I)*4),'parmio.src',
    $                    'PARRDR','MCTP(I)')

Line 2855
         CALL PSND8(HEAP(MCTP(in)),GSCTP(in)*GSCTP(in)*4)
changed to
         CALL PSND8(HEAP(MCTP(I)),GSCTP(I)*GSCTP(I)*4)

2. Add the two lines after the line 3191

     CALL PSND4(NATVDW,1)
     CALL PSND4(NCN, 1)