************************************************************************ SUBROUTINE OMAPX(MAP) IMPLICIT INTEGER*4 (A-Z) include 'essp.inc' WRITE(MAP,*) 'NCOLS ',XMX WRITE(MAP,*) 'NROWS ',YMX WRITE(MAP,*) 'XLLCENTER ',XMN2 WRITE(MAP,*) 'YLLCENTER ',YMN2 WRITE(MAP,*) 'CELLSIZE ',cellsz WRITE(MAP,*) 'NODATA_VALUE -1' * START WRITING ROW 1 (Y = 1) KMX = YMX + 1 DO 20 J=YMN,YMX K = KMX - J WRITE(MAP,17) (SP(I,K),I=XMN,XMX) 17 FORMAT(178I2) 20 CONTINUE RETURN END