        CALL WGridPutCellString(IDF_GRID1,1,1,'Input binary geometry filename')
        CALL WGridPutCellString(IDF_GRID1,1,2,'Input binary restart filename')
        CALL WGridPutCellString(IDF_GRID1,1,3,'Input ASCII geometry filename')
        CALL WGridPutCellString(IDF_GRID1,1,4,'Input ASCII elevation data filename')
        CALL WGridPutCellString(IDF_GRID1,1,5,'Input ASCII flow data filename')
        CALL WGridPutCellString(IDF_GRID1,1,6,'Input ASCII element inflow data filename')
        CALL WGridPutCellString(IDF_GRID1,1,7,'Output ASCII results filename')
        CALL WGridPutCellString(IDF_GRID1,1,8,'Output binary results filename')
        CALL WGridPutCellString(IDF_GRID1,1,9,'Output binary restart filename')
        CALL WGridPutCellString(IDF_GRID1,1,10,'Output ASCII timing data filename')
        CALL WGridPutCellString(IDF_GRID1,1,11,'Output binary SMS format filename')
                                            sms1
        CALL WGridPutCellString(IDF_GRID1,1,12,'Output ASCII special node filename')
        CALL WGridPutCellString(IDF_GRID1,1,13,'Output ASCII continuity line filename')
        CALL WGridPutCellString(IDF_GRID1,1,14,'Input cross-section data filename')
        CALL WGridPutCellString(IDF_GRID1,1,15,'Input stress coordinates filename')
        CALL WGridPutCellString(IDF_GRID1,1,16,'Input ASCII stress components filename')      
        CALL WGridPutCellString(IDF_GRID1,1,17,'Input binary stress components filename')  ! new
        CALL WGridPutCellString(IDF_GRID1,1,18,'Input ASCII file of weighting factors ')  ! new
        CALL WGridPutCellString(IDF_GRID1,1,19,'Input binary file of weighting factors ')  ! new
        CALL WGridPutCellString(IDF_GRID1,1,20,'Output ASCII weighting factors filename')
        CALL WGridPutCellString(IDF_GRID1,1,21,'Output binary weighting factors filename')  ! new?
      CALL WGridPutCellString(IDF_GRID1,1,22,'Output binary stresses filename')
      CALL WGridPutCellString(IDF_GRID1,1,23,'Input weir data filename')
        CALL WGridPutCellString(IDF_GRID1,1,24,'Input ASCII wind data filename')             ! new
        CALL WGridPutCellString(IDF_GRID1,1,25,'Input binary wind filename')                 ! new
     ? CALL WGridPutCellString(IDF_GRID1,1,26,'Output continuity line flows filename')
        CALL WGridPutCellString(IDF_GRID1,1,27,'Input harmonic component filename    ')
        CALL WGridPutCellString(IDF_GRID1,1,28,'Output 3D Geometry filename')
