			gage(l) = colHeader%tb0cmd%colName(l) ! streamflow station name
			xstr(l) = colHeader%tb0cmd%colLocX(l) ! x coordinate
			ystr(l) = colHeader%tb0cmd%colLocY(l) ! y coordinate
			frc(l,1) = colHeader%colCoeff1(l) ! coefficient 1
			frc(l,2) = colHeader%colCoeff2(l) ! coefficient 2
			frc(l,3) = colHeader%colCoeff3(l) ! coefficient 3
			frc(l,4) = colHeader%colCoeff4(l) ! coefficient 4
			nopt(l) = colHeader%colValue1(l) ! nopt
		end do
		deallocate(colHeader%tb0cmd%colName)
		deallocate(colHeader%tb0cmd%colLocX)
		deallocate(colHeader%tb0cmd%colLocY)
		deallocate(colHeader%colCoeff1)
		deallocate(colHeader%colCoeff2)
		deallocate(colHeader%colCoeff3)
		deallocate(colHeader%colCoeff4)
		deallocate(colHeader%colValue1)

!

			gname(l) = colHeader%tb0cmd%colName(l) ! streamflow station name
			xsta(l) = colHeader%tb0cmd%colLocX(l) ! x coordinate
			ysta(l) = colHeader%tb0cmd%colLocY(l) ! y coordinate


!     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        call rdrain('1',tot1,jz,conv,icase,smok,scale,tj1,jan,hour_no)
!     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	  call create_filename(10,510,'r2c')
!     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!     


        coordsys_temp=coordsys2
	  datum_temp=datum2
	  zone_temp=zone2
        xorigin_temp=xorigin2
	  yorigin_temp=yorigin2
        xdelta_temp=xdelta2
	  ydelta_temp=ydelta2
        xcount_temp=xcount2
	  ycount_temp=ycount2
	  deltat_temp=deltat2
        author='translate.exe                           '
        attribute_units='mm                         '

      print*,'**',coordsys_temp,'**'
	print*,'**',datum_temp,'**'
	print*,'**',zone_temp,'**'
      print*,'**',coordsys1,'**'
	print*,'**',datum1,'**'
	print*,'**',zone1,'**'

        if(coordsys_temp.eq.'LatLong   ')coordsys_temp='LATLONG   '
        if(coordsys_temp.eq.'latlong   ')coordsys_temp='LATLONG   '
        if(coordsys_temp.eq.'Utm       ')coordsys_temp='UTM       '
        if(coordsys_temp.eq.'utm       ')coordsys_temp='UTM       '
        if(coordsys_temp.eq.'Cartesian ')coordsys_temp='CARTESIAN '
        if(coordsys_temp.eq.'cartesian ')coordsys_temp='CARTESIAN '
        if(datum_temp.eq.'Unknown   ')datum_temp=datum1
        if(datum_temp.eq.'UNKNOWN   ')datum_temp=datum1
        if(datum_temp.eq.'unknown   ')datum_temp=datum1
	  if(zone_temp.eq.'Unknown   ')zone_temp=zone1
	  if(zone_temp.eq.'UNKNOWN   ')zone_temp=zone1
	  if(zone_temp.eq.'unknown   ')zone_temp=zone1


        name='Precipitation                           '
        source_file_name=fln(10)
        attribute_name='Precipitation                           '

