anchor.diff:  	         IF ( (mod(i,2).NE.0.AND.mod(j,2).NE.0).OR. 
        $           (mod(i,2).EQ.0.AND.mod(j,2).EQ.0) ) THEN
         	             IF (fld_data(i,j,1).GT.-990.AND.
  -     $            	fld_data(i,j,2).GT.-990) THEN 
  -     	          	Write(52,21) save_hbeg+((i-1)*horiz_inc),
  -     $              	'hkm',save_vbeg+((j-1)*vert_inc),'vkm',
  -     $              	fld_data(i,j,vec1),fld_data(i,j,vec2),
  -     $              	'scale Vector'
  +     $                  fld_data(i,j,2).GT.-990) THEN 
  +                        IF(scan_mode.EQ.'POLA') THEN
  +     	                  Write(52,21) save_hbeg+((i-1)*horiz_inc),
  +     $                    save_vbeg+((j-1)*vert_inc),
  +     $                    fld_data(i,j,vec1),fld_data(i,j,vec2),
  +     $                    'scale Vector'
  +                        ELSE
  +                          Write(52,22) save_hbeg+((i-1)*horiz_inc),
  +     $                    'hkm',save_vbeg+((j-1)*vert_inc),'vkm',
  +     $                    fld_data(i,j,vec1),fld_data(i,j,vec2),
  +     $                    'scale Vector'
  +                        ENDIF
                 	     ENDIF
                    ENDIF
         	      ENDDO
  
positive.code:       	   DO i=h1,h2,ptskip
        	      DO j=v1,v2,ptskip
        	         IF (fld_data(i,j,1).GT.-990.AND.
       $           fld_data(i,j,2).GT.-990) THEN 
       	            Write(52,21) save_hbeg+((i-1)*horiz_inc),
       $              'hkm',save_vbeg+((j-1)*vert_inc),'vkm',
       $              fld_data(i,j,vec1),fld_data(i,j,vec2),
       $              'scale Vector'
                	 ENDIF
        	      ENDDO
        	   ENDDO
  
negative.code: 	Write(52,10) '   gr'
  
  10	Format(A)
  21	Format(6X,2(F7.2,1X),2(F7.2,1X),A)
  22      Format(6X,2(F7.2,1X,A,1X),2(F7.2,1X),A)
  	Return
  	End
  **************************************************
  