c test that input gridded data file and input gridded error file c have the same header line. Stop if they don't. c subroutine checkerr(nx,ny,xres,yres,xleft,xright,ytop,ybot, 1 nxe,nye,xrese,yrese,xlefte,xrighte,ytope,ybote) c if ( nxe .ne. nx) then print *,'data and error files differ in nx: STOP ',nx,nxe stop endif if ( nye .ne. ny) then print *,'data and error files differ in ny: STOP ',ny,nye stop endif if ( xrese .ne. xres) then print *,'data and error files differ in xres: STOP ',xres,xrese stop endif if ( yrese .ne. yres) then print *,'data and error files differ in yres: STOP ',yres,yrese stop endif if ( xlefte .ne. xleft ) then print *,'data and error files differ in xleft: STOP ',xleft,xlefte stop endif if ( xrighte .ne. xright ) then print *,'data and error files differ in xright: STOP ', 1 xright,xrighte stop endif if ( ytope .ne. ytop) then print *,'data and error files differ in ytop: STOP ',ytop,ytope stop endif if ( ybote .ne. ybot) then print *,'data and error files differ in ybot: STOP ',ybot,ybote stop endif c return end