anchor.diff:      CASE('FIXEDSRC') 
   	    WRITE(ounit,1031) 'FIXED SOURCE CALCULATION'
   		WRITE(ounit,*)
  +    CASE('RODEJECT') 
  +	    WRITE(ounit,1031) 'ROD EJECTION CALCULATION'
  +		WRITE(ounit,*)
   	CASE DEFAULT
   	    WRITE(ounit,1032) mode
   		STOP
   END SELECT		
   
   1031 FORMAT(2X, 'CALCULATION MODE : ', A30)	
  -1032 FORMAT(2X, 'MODE : ', A, ' UNIDENTIFIED')	
  +1032 FORMAT(2X, 'MODE : ', A10, ' IS UNIDENTIFIED')	
   
   END SUBROUTINE inp_mode
   
  
positive.code: !  6 FEB 2017         Muhammad Imron       Original code
  
  USE sdata, ONLY: nx, ny, nz, nxx, nyy, nzz, xdel, ydel, zdel, &
                  xwest, xeast, ynorth, ysouth, zbott, ztop, &
  				xstag, ystag, xdiv, ydiv, zdiv, nmat
  
  IMPLICIT NONE
  
negative.code:     WRITE(ounit,1021) '%GEOM'
  	STOP
  END IF
  
  ! Card ESRC
  IF (mode == 'FIXEDSRC' .AND. besrc == 1) THEN
  